Changeset 9603


Ignore:
Timestamp:
May 27, 2008, 11:12:37 AM (11 years ago)
Author:
gz
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/setf.lisp

    r2711 r9603  
    8484                    (vals nil))
    8585                (dolist (x (cdr form))
     86                  ;; Rebinding defeats optimizations, so avoid it if can.
     87                  (if (constantp x environment)
     88                    (push x args)
    8689                    (let ((var (gensym)))
    8790                      (push var vars)
    8891                      (push var args)
    89                       (push x vals)))
     92                      (push x vals))))
    9093                (setq args (nreverse args))
    9194                (values (nreverse vars)
Note: See TracChangeset for help on using the changeset viewer.