/[gcl]/gcl/ansi-tests/assoc-if-not.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/assoc-if-not.lsp

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

revision 1.5 by pfdietz, Sun Jun 20 20:06:23 2004 UTC revision 1.6 by pfdietz, Thu May 5 03:08:56 2005 UTC
# Line 137  Line 137 
137    t)    t)
138    
139  (deftest assoc-if-not.error.9  (deftest assoc-if-not.error.9
140    (signals-error (assoc-if-not #'car '((a b)(c d)))    (signals-type-error x 'a (assoc-if-not #'car '((a b)(c d))))
                  type-error)  
141    t)    t)
142    
143  (deftest assoc-if-not.error.10  (deftest assoc-if-not.error.10
144    (signals-error (assoc-if-not #'identity '((a b)(c d)) :key #'car)    (signals-type-error x 'a (assoc-if-not #'identity '((a b)(c d)) :key #'car))
                  type-error)  
145    t)    t)
146    
147  (deftest assoc-if-not.error.11  (deftest assoc-if-not.error.11
# Line 157  Line 155 
155    t)    t)
156    
157  (deftest assoc-if-not.error.13  (deftest assoc-if-not.error.13
158    (signals-error (assoc-if-not #'identity 'y) type-error)    (signals-type-error x 'y (assoc-if-not #'identity x))
159    t)    t)

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

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