From 3d3ac32d4402ff3df488e69de7f05ca240cc67aa Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Mon, 28 Apr 2003 12:57:02 +0000 Subject: [PATCH] 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) --- NEWS | 1 + src/pcl/init.lisp | 4 +++- version.lisp-expr | 2 +- 3 files changed, 5 insertions(+), 2 deletions(-) diff --git a/NEWS b/NEWS index dfe6b16..29a00e6 100644 --- a/NEWS +++ b/NEWS @@ -1704,6 +1704,7 @@ changes in sbcl-0.8.0 relative to sbcl-0.7.14 ** side-effectful :DEFAULT-INITARGS have their side-effects propagated even in the ctor optimized implementation of MAKE-INSTANCE; + ** :ALLOW-OTHER-KEYS NIL is now accepted in an initarg list; planned incompatible changes in 0.8.x: * (not done yet, but planned:) When the profiling interface settles diff --git a/src/pcl/init.lisp b/src/pcl/init.lisp index 5fe2982..2fc6eba 100644 --- a/src/pcl/init.lisp +++ b/src/pcl/init.lisp @@ -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))) diff --git a/version.lisp-expr b/version.lisp-expr index e809a9c..5eed17a 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.pre8.116" +"0.pre8.117" -- 1.7.10.4