Changeset 11306 for trunk/j/src/org/armedbear/lisp/clos.lisp

Timestamp:

09/07/08 13:18:56 (14 years ago)

Author:

ehuelsmann

Message:

Revert c11291 which breaks certain uses of ASDF.

Found by: Mark Evenson (evenson at panix.com)

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))
@@ -1966 +1967 @@
                  :format-arguments (list initarg)))))))
 
-;; 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
+;; FIXME
 (defun check-initargs (class initargs)
   (declare (ignore class initargs)))