/[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.12 by pfdietz, Wed Sep 22 12:19:37 2004 UTC revision 1.13 by pfdietz, Fri May 6 13:34:42 2005 UTC
# Line 537  Line 537 
537  ;;; Error tests  ;;; Error tests
538    
539  (deftest position-if-not.error.1  (deftest position-if-not.error.1
540    (signals-error (position-if-not #'identity 'b) type-error)    (check-type-error #'(lambda (x) (position-if-not #'identity x)) #'sequencep)
541    t)    nil)
   
 (deftest position-if-not.error.2  
   (signals-error (position-if-not #'identity 10) type-error)  
   t)  
   
 (deftest position-if-not.error.3  
   (signals-error (position-if-not 'null 1.4) type-error)  
   t)  
542    
543  (deftest position-if-not.error.4  (deftest position-if-not.error.4
544    (signals-error (position-if-not 'identity '(a b c . d)) type-error)    (signals-error (position-if-not 'identity '(a b c . d)) type-error)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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