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

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

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

revision 1.3 by pfdietz, Sun Oct 13 10:42:08 2002 UTC revision 1.4 by pfdietz, Wed Oct 23 03:10:23 2002 UTC
# Line 567  Line 567 
567  ;;; Error tests  ;;; Error tests
568    
569  (deftest position-error.1  (deftest position-error.1
570    (handler-case (position 'a 'b)    (classify-error (position 'a 'b))
571                  (type-error () :type-error)    type-error)
                 (error (c) c))  
   :type-error)  
572    
573  (deftest position-error.2  (deftest position-error.2
574    (handler-case (position 'a 10)    (classify-error (position 'a 10))
575                  (type-error () :type-error)    type-error)
                 (error (c) c))  
   :type-error)  
576    
577  (deftest position-error.3  (deftest position-error.3
578    (handler-case (position 'a 1.4)    (classify-error (position 'a 1.4))
579                  (type-error () :type-error)    type-error)
                 (error (c) c))  
   :type-error)  
580    
581  (deftest position-error.4  (deftest position-error.4
582    (locally (declare (optimize (safety 3)))    (classify-error (position 'e '(a b c . d)))
583             (handler-case (position 'e '(a b c . d))    type-error)
584                           (type-error () :type-error)  
                          (error (c) c)))  
   :type-error)  
585    
586    
587    

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

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