Changeset 902

Timestamp:

Feb 15, 2005, 11:17:38 PM (20 years ago)

Author:

bryan

Message:

spec says that the long form of defsetf encloses the body in a
block named after the access function.

defsetf was doing the wrong thing and putting the block around
the eventual setf-expansion instead of the body that's evaluated
to generate the setf-expansion.

defsetf should also return the name of the access-fn and not
the doc string.

File:

• trunk/ccl/lib/setf.lisp (modified) (4 diffs)

trunk/ccl/lib/setf.lisp

@@ -218 +218 @@
         ',(%car rest)
         ,@(%cdr rest)))
-    (destructuring-bind (lambda-list (store-var &rest mv-store-vars) &body body) rest
+    (destructuring-bind (lambda-list (store-var &rest mv-store-vars) &body body)
+        rest
       (unless (verify-lambda-list lambda-list)
         (signal-program-error $XBadLambdaList lambda-list))
@@ -226 +227 @@
           (multiple-value-bind (body decls doc)
                                (parse-body body env t)
+            (setq body `((block ,access-fn ,@body)))
             (let* ((args (gensym))
                    (dummies (gensym))
@@ -232 +234 @@
                    (access-form (gensym))
                    (environment (gensym)))
-              
               `(eval-when (:compile-toplevel :load-toplevel :execute)
                  (store-setf-method 
@@ -252 +253 @@
                                (cdr ,access-form)
                                ,newval-vars
-                               `((lambda ,,lambda-list
-                                   (block ,',access-fn ,,@body))
+                               `((lambda ,,lambda-list ,,@body)
                                  ,@,dummies)
                                ,new-access-form))))))
-                 ,@(if doc (list doc))))))))))
+                 ,@(if doc (list doc))
+                 ',access-fn))))))))
   
 (defmacro define-modify-macro (name lambda-list function &optional doc-string)