From c6da294117f0140026dc22c03ad3e0abb4dc3a5c Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Tue, 29 Jan 2008 14:21:59 +0000 Subject: [PATCH] 1.0.14.6: SIMPLE-REFERENCE-ERROR, not SIMPLE-REFERENCE-CONDITION * Bogus export, reported by Attila Lendvai. * Fix the test-case to check that the condition type is sane, which would have caught this in the first place. --- package-data-list.lisp-expr | 2 +- tests/mop.impure.lisp | 2 +- version.lisp-expr | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr index f69ef45..fd710df 100644 --- a/package-data-list.lisp-expr +++ b/package-data-list.lisp-expr @@ -855,7 +855,7 @@ possibly temporariliy, because it might be used internally." "SIMPLE-PARSE-ERROR" "SIMPLE-PROGRAM-ERROR" "SIMPLE-READER-ERROR" "SIMPLE-READER-PACKAGE-ERROR" - "SIMPLE-REFERENCE-CONDITION" + "SIMPLE-REFERENCE-ERROR" "SIMPLE-STREAM-ERROR" "SIMPLE-STORAGE-CONDITION" "SIMPLE-STYLE-WARNING" diff --git a/tests/mop.impure.lisp b/tests/mop.impure.lisp index 6a49d02..c362778 100644 --- a/tests/mop.impure.lisp +++ b/tests/mop.impure.lisp @@ -525,6 +525,6 @@ (defclass has-slots-but-isnt-finalized () (a b c)) (let ((class (find-class 'has-slots-but-isnt-finalized))) (assert (not (sb-mop:class-finalized-p class))) - (assert (raises-error? (sb-mop:class-slots class)))) + (assert (raises-error? (sb-mop:class-slots class) sb-kernel::reference-condition))) ;;;; success diff --git a/version.lisp-expr b/version.lisp-expr index ba76545..0cacfe1 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.14.5" +"1.0.14.6" -- 1.7.10.4