[cl-store-cvs] CVS update: cl-store/tests.lisp

[Sean Ross]

Update of /project/cl-store/cvsroot/cl-store
In directory common-lisp.net:/tmp/cvs-serv16011

Modified Files:
	tests.lisp 
Log Message:
Fixed tests

Date: Thu Sep  1 13:59:30 2005
Author: sross

Index: cl-store/tests.lisp
diff -u cl-store/tests.lisp:1.23 cl-store/tests.lisp:1.24
--- cl-store/tests.lisp:1.23	Thu Sep  1 12:24:55 2005
+++ cl-store/tests.lisp	Thu Sep  1 13:59:30 2005
@@ -315,10 +315,11 @@
 
 (deftest condition.2
   (handler-case (car (read-from-string "3"))
-    (#-allegro type-error #+allegro simple-error (c)
+    ;; allegro pre 7.0 signalled a simple-error here
+    ((or type-error simple-error) (c)
       (store c *test-file*)
       (typep (restore *test-file*) 
-             #-allegro 'type-error #+allegro 'simple-error)))
+             '(or type-error simple-error))))
   t)
 
 ;; structure-object