Changeset 11291


Ignore:
Timestamp:
08/30/08 21:09:03 (14 years ago)
Author:
ehuelsmann
Message:

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

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/clos.lisp

    r11288 r11291  
    19511951;; methods, along with the predefined initialization argument :ALLOW-OTHER-KEYS."
    19521952;; 7.1.2
    1953 #+nil
    19541953(defun check-initargs (class initargs)
    19551954  (when (oddp (length initargs))
     
    19671966                 :format-arguments (list initarg)))))))
    19681967
    1969 ;; FIXME
     1968;; FIXME: 20080830 ehuelsmann - The above method used to be commented out
     1969;; I switched the situation around, based upon my reading of the spec, the
     1970;; version above is not strict enough, but correct when it generates an error
     1971;; In other words: it allows unsupported arguments when ':allow-other-keys T'
     1972#+nil
    19701973(defun check-initargs (class initargs)
    19711974  (declare (ignore class initargs)))
Note: See TracChangeset for help on using the changeset viewer.