/[gcl]/gcl/ansi-tests/find.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/find.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pfdietz, Sun Oct 13 10:42:08 2002 UTC revision 1.3 by pfdietz, Wed Oct 23 03:10:23 2002 UTC
# Line 701  Line 701 
701  ;;; Error tests  ;;; Error tests
702    
703  (deftest find-error.1  (deftest find-error.1
704    (handler-case (find 'a 'b)    (classify-error (find 'a 'b))
705                  (type-error () :type-error)    type-error)
                 (error (c) c))  
   :type-error)  
706    
707  (deftest find-error.2  (deftest find-error.2
708    (handler-case (find 'a 10)    (classify-error (find 'a 10))
709                  (type-error () :type-error)    type-error)
                 (error (c) c))  
   :type-error)  
710    
711  (deftest find-error.3  (deftest find-error.3
712    (handler-case (find 'a 1.4)    (classify-error (find 'a 1.4))
713                  (type-error () :type-error)    type-error)
                 (error (c) c))  
   :type-error)  
714    
715  (deftest find-error.4  (deftest find-error.4
716    (locally (declare (optimize (safety 3)))    (classify-error (find 'e '(a b c . d)))
717             (handler-case (find 'e '(a b c . d))    type-error)
718                           (type-error () :type-error)  
                          (error (c) c)))  
   :type-error)  

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26