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

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

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

revision 1.6 by pfdietz, Fri Feb 14 05:10:36 2003 UTC revision 1.7 by pfdietz, Sat Feb 22 01:15:59 2003 UTC
# Line 128  Line 128 
128  (deftest notany.error.10  (deftest notany.error.10
129    (classify-error (locally (notany 1 '(a b c)) t))    (classify-error (locally (notany 1 '(a b c)) t))
130    type-error)    type-error)
131    
132    (deftest notany.error.11
133      (classify-error (notany #'cons '(a b c)))
134      program-error)
135    
136    (deftest notany.error.12
137      (classify-error (notany #'cons '(a b c) '(1 2 4) '(g h j)))
138      program-error)
139    
140    (deftest notany.error.13
141      (classify-error (notany #'car '(a b c)))
142      type-error)

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

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