Changeset 11291

Timestamp:

08/30/08 21:09:03 (15 years ago)

Author:

ehuelsmann

Message:

Swap commenting-out on check-initargs in clos.lisp.

Found by: Michael Travers; mtravers at users.sf.net

File:

• trunk/j/src/org/armedbear/lisp/clos.lisp (modified) (2 diffs)

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

@@ -1951 +1951 @@
 ;; methods, along with the predefined initialization argument :ALLOW-OTHER-KEYS."
 ;; 7.1.2
-#+nil
 (defun check-initargs (class initargs)
   (when (oddp (length initargs))
@@ -1967 +1966 @@
                  :format-arguments (list initarg)))))))
 
-;; FIXME
+;; FIXME: 20080830 ehuelsmann - The above method used to be commented out
+;; I switched the situation around, based upon my reading of the spec, the
+;; version above is not strict enough, but correct when it generates an error
+;; In other words: it allows unsupported arguments when ':allow-other-keys T'
+#+nil
 (defun check-initargs (class initargs)
   (declare (ignore class initargs)))