Changeset 9346 for release/1.2/source
- Timestamp:
- May 2, 2008, 4:50:04 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/1.2/source/level-1/l1-clos-boot.lisp
r9200 r9346 3028 3028 *standard-class-class*))) 3029 3029 (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))) 3032 3034 3033 3035 (defun compute-initargs-vector (instance class functions &optional require-rest)
Note: See TracChangeset
for help on using the changeset viewer.