/[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.9 by pfdietz, Sat Feb 15 05:11:11 2003 UTC revision 1.10 by pfdietz, Sat Feb 22 01:15:59 2003 UTC
# Line 557  Line 557 
557  (deftest position-if-not.error.11  (deftest position-if-not.error.11
558    (classify-error (locally (position-if-not #'identity 'b) t))    (classify-error (locally (position-if-not #'identity 'b) t))
559    type-error)    type-error)
560    
561    (deftest position-if-not.error.12
562      (classify-error (position-if-not #'cons '(a b c d)))
563      program-error)
564    
565    (deftest position-if-not.error.13
566      (classify-error (position-if-not #'car '(a b c d)))
567      type-error)
568    
569    (deftest position-if-not.error.14
570      (classify-error (position-if-not #'identity '(a b c d) :key #'cdr))
571      type-error)
572    
573    (deftest position-if-not.error.15
574      (classify-error (position-if-not #'identity '(a b c d) :key #'cons))
575      program-error)

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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