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

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

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

revision 1.7 by pfdietz, Mon Jan 27 12:57:53 2003 UTC revision 1.8 by pfdietz, Wed Jan 29 02:11:55 2003 UTC
# Line 486  Line 486 
486  ;;; Tests of error situations  ;;; Tests of error situations
487    
488  (deftest merge.error.1  (deftest merge.error.1
489    (handler-case  (eval    (handler-case (eval
490                    '(locally (declare (optimize (safety 3)))                   '(locally (declare (optimize (safety 3)))
491                              (merge 'symbol (list 1 2 3) (list 4 5 6) #'<)))                             (merge 'symbol (list 1 2 3) (list 4 5 6) #'<)))
492                   (error () :caught))                  (error () :caught))
493    :caught)    :caught)
494    
495  (deftest merge.error.2  (deftest merge.error.2
# Line 545  Line 545 
545    (classify-error (merge 'list (list 2 4 6) (list 1 3 5) #'< 1 2))    (classify-error (merge 'list (list 2 4 6) (list 1 3 5) #'< 1 2))
546    program-error)    program-error)
547    
548    (deftest merge.error.15
549      (classify-error (locally (merge '(vector * 3) (list 1 2 3)
550                                      (list 4 5 6) #'<)
551                               t))
552      type-error)
553    
554    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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