Changeset 14262 for trunk/source/level-1


Ignore:
Timestamp:
Sep 16, 2010, 10:00:43 AM (9 years ago)
Author:
gb
Message:

In CHECK-INITARGS, check that class is a CLASS; don't insist on STD-CLASS.

File:
1 edited

Legend:

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

    r14119 r14262  
    32863286  (declare (dynamic-extent functions))
    32873287  (declare (list functions))
    3288   (setq class (require-type (or class (class-of instance)) 'std-class))
     3288  (setq class (require-type (or class (class-of instance)) 'class))
    32893289  (unless (getf initargs :allow-other-keys)
    32903290    (let ((initvect (initargs-vector instance class functions)))
Note: See TracChangeset for help on using the changeset viewer.