Changeset 9603

Timestamp:

May 27, 2008, 4:12:37 AM (17 years ago)

Author:

gz

Message:

Patch from Jason Kantz to avoid a case of unecessary rebinding in get-setf-expansion

File:

• branches/working-0711/ccl/lib/setf.lisp (modified) (1 diff)

branches/working-0711/ccl/lib/setf.lisp

@@ -84 +84 @@
                     (vals nil))
                 (dolist (x (cdr form))
+                  ;; Rebinding defeats optimizations, so avoid it if can.
+                  (if (constantp x environment)
+                    (push x args)
                     (let ((var (gensym)))
                       (push var vars)
                       (push var args)
-                      (push x vals)))
+                      (push x vals))))
                 (setq args (nreverse args))
                 (values (nreverse vars)