diff options
| -rw-r--r-- | src/collections.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/collections.lisp b/src/collections.lisp index 4e7aae4..b0da74f 100644 --- a/src/collections.lisp +++ b/src/collections.lisp @@ -6,9 +6,9 @@ (defmacro pop-back (place) "Removes destructively last element and returns it" - `(progn (let ((val (car (last ,place)))) - (nbutlast ,place) - val))) + `(let ((val (car (last ,place)))) + (setq ,place (nbutlast ,place)) + val)) (defun slice (place &key (begin 0) (end (length place))) "Returns list of elements from begin to end indecies, inclusive" |