Changeset 8056

Timestamp:

Jan 11, 2008, 2:07:08 PM (17 years ago)

Author:

Bill St. Clair

Message:

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

File:

• branches/working-0711/ccl/level-1/l1-clos.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-clos.lisp

@@ -2087 +2087 @@
                      (name (slot-definition-name slot))
                      (type (slot-definition-type slot)))
+                (when (consp location)
+                  (setq location-var (gensym "LOCATION"))
+                  (class-binds `(,location-var
+                                 (load-time-value
+                                  (slot-definition-location ',slot)))))
                 (when initfunction
-                  (when (consp location)
-                    (setq location-var (gensym "LOCATION"))
-                    (class-binds `(,location-var
-                                   (load-time-value
-                                    (slot-definition-location ',slot)))))
                   (setq initform
                         (if (self-evaluating-p initform)