Changeset 8056


Ignore:
Timestamp:
Jan 11, 2008, 10:07:08 PM (13 years ago)
Author:
wws
Message:

Stop make-instantiate-lambda-for-class-cell from doing (setf (cdr nil) ...)
for a class slot with an initarg but no initform.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-clos.lisp

    r8033 r8056  
    20872087                     (name (slot-definition-name slot))
    20882088                     (type (slot-definition-type slot)))
     2089                (when (consp location)
     2090                  (setq location-var (gensym "LOCATION"))
     2091                  (class-binds `(,location-var
     2092                                 (load-time-value
     2093                                  (slot-definition-location ',slot)))))
    20892094                (when initfunction
    2090                   (when (consp location)
    2091                     (setq location-var (gensym "LOCATION"))
    2092                     (class-binds `(,location-var
    2093                                    (load-time-value
    2094                                     (slot-definition-location ',slot)))))
    20952095                  (setq initform
    20962096                        (if (self-evaluating-p initform)
Note: See TracChangeset for help on using the changeset viewer.