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

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

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

revision 1.6 by pfdietz, Sun Jun 20 20:06:23 2004 UTC revision 1.7 by pfdietz, Thu May 5 03:08:56 2005 UTC
# Line 140  Line 140 
140    t)    t)
141    
142  (deftest assoc-if.error.9  (deftest assoc-if.error.9
143    (signals-error (assoc-if #'car '((a b)(c d)))    (signals-type-error x 'a (assoc-if #'car '((a b)(c d))))
                  type-error)  
144    t)    t)
145    
146  (deftest assoc-if.error.10  (deftest assoc-if.error.10
147    (signals-error (assoc-if #'identity '((a b)(c d)) :key #'car)    (signals-type-error x 'a (assoc-if #'identity '((a b)(c d)) :key #'car))
                  type-error)  
148    t)    t)
149    
150  (deftest assoc-if.error.11  (deftest assoc-if.error.11
# Line 160  Line 158 
158    t)    t)
159    
160  (deftest assoc-if.error.13  (deftest assoc-if.error.13
161    (signals-error (assoc-if #'null 'y) type-error)    (signals-type-error x 'y (assoc-if #'null x))
162    t)    t)

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