Changeset 11481


Ignore:
Timestamp:
Dec 8, 2008, 5:11:16 PM (11 years ago)
Author:
gz
Message:

Propagate r11479 to trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-clos.lisp

    r11465 r11481  
    22662266                                                      initform
    22672267                                                      `(%slot-unbound-marker))))))
    2268                                       (default (assq initarg default-initargs)))
     2268                                      (default (assq initarg default-initargs))
     2269                                      (default-value-form nil))
    22692270                                 (when spvar (ignorable spvar))
    22702271                                 (when default
    22712272                                   (destructuring-bind (form function)
    22722273                                       (cdr default)
    2273                                      (setq default
    2274                                            (if (self-evaluating-p form)
     2274                                     (setq default-value-form
     2275                                           (if (or (quoted-form-p form)
     2276                                                   (self-evaluating-p form))
    22752277                                               form
    22762278                                               `(funcall ,function)))))
     
    22782280                                        (list initarg name)
    22792281                                        (if (and default one-initarg-p (null location-var))
    2280                                             default
     2282                                            default-value-form
    22812283                                            initial-value-form)
    22822284                                        (if spvar (list spvar))))
Note: See TracChangeset for help on using the changeset viewer.