Email Archive: sbcl-commits (read-only)
|
[Sbcl-commits] CVS: sbcl/src/pcl init.lisp,1.11,1.12
From: Christophe Rhodes <crhodes@us...> - 2003-04-28 12:57
|
Update of /cvsroot/sbcl/sbcl/src/pcl
In directory sc8-pr-cvs1:/tmp/cvs-serv22727/src/pcl
Modified Files:
init.lisp
Log Message:
0.pre8.117:
:ALLOW-OTHER-KEYS NIL is perfectly valid in an initarg list, so
don't flame out when it's present (detected by Paul Dietz'
suite: test CLASS-07.10)
Index: init.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/init.lisp,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- init.lisp 30 Dec 2002 00:42:27 -0000 1.11
+++ init.lisp 28 Apr 2003 12:57:03 -0000 1.12
@@ -190,7 +190,9 @@
;; Now check the supplied-initarg-names and the default initargs
;; against the total set that we know are legal.
(doplist (key val) initargs
- (unless (memq key legal)
+ (unless (or (memq key legal)
+ ;; :ALLOW-OTHER-KEYS NIL gets here
+ (eq key :allow-other-keys))
(push key invalid-keys)))
(when (and invalid-keys error-p)
(error 'initarg-error :class class :initargs invalid-keys)))
|
Thread View
| Thread | Author | Date |
|---|---|---|
| [Sbcl-commits] CVS: sbcl/src/pcl init.lisp,1.11,1.12 | Christophe Rhodes <crhodes@us...> |