Changeset 9346 for release


Ignore:
Timestamp:
May 2, 2008, 4:50:04 PM (11 years ago)
Author:
gz
Message:

Propagate r9345

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.2/source/level-1/l1-clos-boot.lisp

    r9200 r9346  
    30283028                                               *standard-class-class*)))
    30293029         (meta-spec (if (quoted-form-p meta-arg) (%cadr meta-arg) meta-arg))
    3030          (meta (if (typep meta-spec 'class) meta-spec (find-class meta-spec))))
    3031     (compute-initargs-vector class meta (list #'initialize-instance #'allocate-instance #'shared-initialize) t)))
     3030         (meta (if (typep meta-spec 'class) meta-spec (find-class meta-spec nil))))
     3031    (if (and meta (not (typep meta 'forward-referenced-class)))
     3032      (compute-initargs-vector class meta (list #'initialize-instance #'allocate-instance #'shared-initialize) t)
     3033      t)))
    30323034
    30333035(defun compute-initargs-vector (instance class functions &optional require-rest)
Note: See TracChangeset for help on using the changeset viewer.