Changeset 12072

Timestamp:

07/28/09 14:48:24 (14 years ago)

Author:

vvoutilainen

Message:

Fix SHARED-INITIALIZE.ERROR.4.

File:

• trunk/abcl/src/org/armedbear/lisp/clos.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/clos.lisp

@@ -2049 +2049 @@
   (when (oddp (length all-keys))
     (error 'program-error :format-control "Odd number of keyword arguments."))
+  (do* ((tail all-keys (cddr tail))
+  (initarg (car tail) (car tail)))
+      ((null tail))
+    (when (and initarg (not (symbolp initarg)))
+      (error 'program-error
+       :format-control "Invalid initarg ~S."
+       :format-arguments (list initarg))))
   (dolist (slot (%class-slots (class-of instance)))
     (let ((slot-name (%slot-definition-name slot)))