From: Nathan Froyd <froydnj@cs.rice.edu>
Date: Tue, 4 Jul 2006 12:40:03 +0000 (+0000)
Subject: 0.9.14.6:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=94b8f6d07445666017dfeac29bbbe0863a3c2de2;p=sbcl.git

0.9.14.6:
	Correct some typos in the defstruct tests.
---

diff --git a/tests/defstruct.impure.lisp b/tests/defstruct.impure.lisp
index 9a0a99d..93cd7b9 100644
--- a/tests/defstruct.impure.lisp
+++ b/tests/defstruct.impure.lisp
@@ -216,6 +216,8 @@
 ;;; debugger is having a bad day
 (defvar *instance*)
 
+(declaim (optimize (debug 2)))
+
 (defmacro test-variant (defstructname &key colontype boa-constructor-p)
   `(progn
 
@@ -644,8 +646,8 @@
 (catch :ok
   (handler-bind ((error (lambda (c)
                           ;; Used to cause stack-exhaustion
-                          (unless (typep c 'storege-condition)
-                            (throw :ok)))))
+                          (unless (typep c 'storage-condition)
+                            (throw :ok t)))))
     (eval '(progn
             (defstruct foo a)
             (setf (find-class 'foo) nil)
diff --git a/version.lisp-expr b/version.lisp-expr
index e4ff3a7..f19c566 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.9.14.5"
+"0.9.14.6"