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

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

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

revision 1.5 by pfdietz, Thu May 5 03:08:57 2005 UTC revision 1.6 by pfdietz, Fri May 6 01:13:40 2005 UTC
# Line 148  Line 148 
148    (car nil)    (car nil)
149    nil)    nil)
150    
151  (deftest car-symbol-error  (deftest car.error.1
152    (signals-type-error x 'a (car x))    (check-type-error #'car #'listp)
153    t)    nil)
154    
155  (deftest car-symbol-error.2  (deftest car.error.2
156    (signals-error (locally (car 'a) t) type-error)    (signals-error (locally (car 'a) t) type-error)
157    t)    t)
158    
# Line 174  Line 174 
174      (values (cdr (progn (incf i) '(a b))) i))      (values (cdr (progn (incf i) '(a b))) i))
175    (b) 1)    (b) 1)
176    
177  (deftest cdr-symbol-error  (deftest cdr.error.1
178    (signals-type-error x 'a (cdr x))    (check-type-error #'cdr #'listp)
179    t)    nil)
180    
181  (deftest cdr-symbol-error.2  (deftest cdr.error.2
182    (signals-error (locally (cdr 'a) t) type-error)    (signals-error (locally (cdr 'a) t) type-error)
183    t)    t)
184    

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