Changeset 11481

Timestamp:

Dec 8, 2008, 5:11:16 PM (11 years ago)

Author:

gz

Message:

Propagate r11479 to trunk

File:

• trunk/source/level-1/l1-clos.lisp (modified) (2 diffs)

trunk/source/level-1/l1-clos.lisp

@@ -2266 +2266 @@
                                                       initform
                                                       `(%slot-unbound-marker))))))
-                                      (default (assq initarg default-initargs)))
+                                      (default (assq initarg default-initargs))
+                                      (default-value-form nil))
                                  (when spvar (ignorable spvar))
                                  (when default
                                    (destructuring-bind (form function)
                                        (cdr default)
-                                     (setq default
-                                           (if (self-evaluating-p form)
+                                     (setq default-value-form
+                                           (if (or (quoted-form-p form)
+                                                   (self-evaluating-p form))
                                                form
                                                `(funcall ,function)))))
@@ -2278 +2280 @@
                                         (list initarg name)
                                         (if (and default one-initarg-p (null location-var))
-                                            default
+                                            default-value-form
                                             initial-value-form)
                                         (if spvar (list spvar))))