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

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

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

revision 1.2 by camm, Wed Oct 9 19:05:01 2002 UTC revision 1.3 by pfdietz, Wed Oct 23 03:10:23 2002 UTC
# Line 414  Line 414 
414  ;;; Error tests  ;;; Error tests
415    
416  (deftest position-if-not-error.1  (deftest position-if-not-error.1
417    (handler-case (position-if-not #'identity 'b)    (classify-error (position-if-not #'identity 'b))
418                  (type-error () :type-error)    type-error)
                 (error (c) c))  
   :type-error)  
419    
420  (deftest position-if-not-error.2  (deftest position-if-not-error.2
421    (handler-case (position-if-not #'identity 10)    (classify-error (position-if-not #'identity 10))
422                  (type-error () :type-error)    type-error)
                 (error (c) c))  
   :type-error)  
423    
424  (deftest position-if-not-error.3  (deftest position-if-not-error.3
425    (handler-case (position-if-not 'null 1.4)    (classify-error (position-if-not 'null 1.4))
426                  (type-error () :type-error)    type-error)
                 (error (c) c))  
   :type-error)  
427    
428  (deftest position-if-not-error.4  (deftest position-if-not-error.4
429    (locally (declare (optimize (safety 3)))    (classify-error (position-if-not 'identity '(a b c . d)))
430             (handler-case (position-if-not 'identity '(a b c . d))    type-error)
431                           (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