hunk ./src/call-cc/handlers.lisp 239
-  (setf (symbol-value var) value)
+  (let ((exp (macroexpand var)))
+    (if (eq var exp)
+	(setf (symbol-value var) value)
+	(multiple-value-bind (dummies vals new setter getter)
+	    (get-setf-expansion var)
+
+	  (funcall 
+	   (compile nil 
+		    `(lambda () 
+		      (let* (,@(mapcar #'list dummies vals)
+			       (,(car new) ,value))
+			       (prog1 
+				 ,setter))))))))
hunk ./src/walk.lisp 128
-  ((declares :accessor declares :initarg :declares)))
+  ((declares :accessor declares :initarg :declares :initform nil)))