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