Skip to content
Snippets Groups Projects
Commit e805dcfe authored by gerd's avatar gerd
Browse files

Fix for Paul Dietz' ANSI test CLASS-07.10.

	* src/pcl/init.lisp (check-initargs): Recognize :allow-other-keys
	nil.
parent 1fecd525
No related branches found
No related tags found
No related merge requests found
...@@ -26,7 +26,7 @@ ...@@ -26,7 +26,7 @@
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/init.lisp,v 1.16 2003/03/26 17:15:22 gerd Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/init.lisp,v 1.17 2003/04/23 15:12:14 gerd Exp $")
;;; ;;;
;;; This file defines the initialization and related protocols. ;;; This file defines the initialization and related protocols.
...@@ -185,7 +185,9 @@ ...@@ -185,7 +185,9 @@
(if plist-p (if plist-p
(unless (getf initargs :allow-other-keys) (unless (getf initargs :allow-other-keys)
(doplist (key val) initargs (doplist (key val) initargs
(unless (memq key legal) (unless (or (memq key legal)
;; :ALLOW-OTHER-KEYS NIL
(eq key :allow-other-keys))
(push key invalid-keys)))) (push key invalid-keys))))
(unless (memq :allow-other-keys initargs) (unless (memq :allow-other-keys initargs)
(dolist (key initargs) (dolist (key initargs)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment