[Openmcl-cvs-notifications] r14262 - /trunk/source/level-1/l1-clos-boot.lisp

[gb at clozure.com]

Author: gb
Date: Thu Sep 16 05:00:43 2010
New Revision: 14262

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

Modified:
    trunk/source/level-1/l1-clos-boot.lisp

Modified: trunk/source/level-1/l1-clos-boot.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-clos-boot.lisp (original)
+++ trunk/source/level-1/l1-clos-boot.lisp Thu Sep 16 05:00:43 2010
@@ -3281,7 +3281,7 @@
 (defun check-initargs (instance class initargs errorp &rest functions)
   (declare (dynamic-extent functions))
   (declare (list functions))
-  (setq class (require-type (or class (class-of instance)) 'std-class))
+  (setq class (require-type (or class (class-of instance)) 'class))
   (unless (getf initargs :allow-other-keys)
     (let ((initvect (initargs-vector instance class functions)))
       (when (eq initvect t) (return-from check-initargs nil))