From a32cea89ba8f5e8a0726f4182c7b6666646e6d3a Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Fri, 19 Dec 2008 19:00:01 +0000 Subject: [PATCH] 1.0.23.59: bug 3b has been fixed a while now * Test case added. --- BUGS | 7 ------- tests/defstruct.impure.lisp | 12 ++++++++++++ version.lisp-expr | 2 +- 3 files changed, 13 insertions(+), 8 deletions(-) diff --git a/BUGS b/BUGS index 414d01006..9dd8b023d 100644 --- a/BUGS +++ b/BUGS @@ -77,13 +77,6 @@ WORKAROUND: Such code should compile without complaint and work correctly either on SBCL or on any other completely compliant Common Lisp system. - b: &AUX argument in a boa-constructor without a default value means - "do not initilize this slot" and does not cause type error. But - an error may be signalled at read time and it would be good if - SBCL did it. - - d: (fixed in 0.8.1.5) - 33: And as long as we're wishing, it would be awfully nice if INSPECT could also report on closures, telling about the values of the bound variables. diff --git a/tests/defstruct.impure.lisp b/tests/defstruct.impure.lisp index 06a4b47ba..e0ab36ed2 100644 --- a/tests/defstruct.impure.lisp +++ b/tests/defstruct.impure.lisp @@ -1049,3 +1049,15 @@ redefinition." (assert (raw-slot/circle-subst-p struct)) (assert (eql 2.7158911 (raw-slot/circle-subst-x struct))) (assert (eql 45 n))))) + +(defstruct (bug-3b (:constructor make-bug-3b (&aux slot))) + (slot nil :type string)) + +(with-test (:name :bug-3b) + (handler-case + (progn + (bug-3b-slot (make-bug-3b)) + (error "fail")) + (type-error (e) + (assert (eq 'string (type-error-expected-type e))) + (assert (zerop (type-error-datum e)))))) diff --git a/version.lisp-expr b/version.lisp-expr index bb4371ff0..dcaced818 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".) -"1.0.23.58" +"1.0.23.59" -- 2.11.4.GIT