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

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

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

revision 1.1 by pfdietz, Thu Sep 26 16:53:38 2002 UTC revision 1.2 by pfdietz, Wed Oct 23 03:10:23 2002 UTC
# Line 487  Line 487 
487  ;;; Error tests  ;;; Error tests
488    
489  (deftest find-if-not-error.1  (deftest find-if-not-error.1
490    (handler-case (find-if-not #'null 'b)    (classify-error (find-if-not #'null 'b))
491                  (type-error () :type-error)    type-error)
                 (error (c) c))  
   :type-error)  
492    
493  (deftest find-if-not-error.2  (deftest find-if-not-error.2
494    (handler-case (find-if-not #'identity 10)    (classify-error (find-if-not #'identity 10))
495                  (type-error () :type-error)    type-error)
                 (error (c) c))  
   :type-error)  
496    
497  (deftest find-if-not-error.3  (deftest find-if-not-error.3
498    (handler-case (find-if-not '1+ 1.4)    (classify-error (find-if-not '1+ 1.4))
499                  (type-error () :type-error)    type-error)
                 (error (c) c))  
   :type-error)  
500    
501  (deftest find-if-not-error.4  (deftest find-if-not-error.4
502    (locally (declare (optimize (safety 3)))    (classify-error (find-if-not 'identity '(a b c . d)))
503             (handler-case (find-if-not 'identity '(a b c . d))    type-error)
                          (type-error () :type-error)))  
   :type-error)  
   
   
                   
   

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

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