Fix POP

diff --git a/src/list.lisp b/src/list.lisp
index 0f95f42..15a433f 100644 (file)
--- a/src/list.lisp
+++ b/src/list.lisp
@@ -58,9 +58,10 @@
 (defmacro pop (place)
   (multiple-value-bind (dummies vals newval setter getter)
     (get-setf-expansion place)
-    (let ((car-symbol (gensym)))
+    (let ((head (gensym)))
       `(let* (,@(mapcar #'list dummies vals) 
-              (,car-symbol (car ,getter))
-              (,(car newval) (cdr ,getter)))
+              (,head ,getter)
+              (,(car newval) (cdr ,head))
+              ,@(cdr newval)) 
          ,setter
-         ,car-symbol))))
+         (car ,head)))))