Skip to content

Commit

Permalink
1.0.23.59: bug 3b has been fixed a while now
Browse files Browse the repository at this point in the history
 * Test case added.
  • Loading branch information
nikodemus committed Dec 19, 2008
1 parent 7522f76 commit a32cea8
Show file tree
Hide file tree
Showing 3 changed files with 13 additions and 8 deletions.
7 changes: 0 additions & 7 deletions BUGS
Original file line number Diff line number Diff line change
Expand Up @@ -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.
Expand Down
12 changes: 12 additions & 0 deletions tests/defstruct.impure.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -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))))))
2 changes: 1 addition & 1 deletion version.lisp-expr
Original file line number Diff line number Diff line change
Expand Up @@ -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"

0 comments on commit a32cea8

Please sign in to comment.