/[gcl]/gcl/ansi-tests/pprint-dispatch.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/pprint-dispatch.lsp

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

revision 1.6 by pfdietz, Mon Jul 12 11:58:22 2004 UTC revision 1.7 by pfdietz, Mon Aug 16 02:37:46 2004 UTC
# Line 265  Line 265 
265    t)    t)
266    
267    
268    (deftest set-pprint-dispatch.error.4
269      (loop for x in *mini-universe*
270            unless (or (typep x 'real)
271                       (eval `(signals-error (let ((table (copy-pprint-dispatch nil)))
272                                               (set-pprint-dispatch t 'identity ',x))
273                                             error)))
274            collect x)
275      nil)
276    
277    (deftest set-pprint-dispatch.error.4-unsafe
278      (loop for x in *mini-universe*
279            unless (or (typep x 'real)
280                       (eval `(signals-error (let ((table (copy-pprint-dispatch nil)))
281                                               (declare (optimize (safety 0)))
282                                               (set-pprint-dispatch t 'identity ',x))
283                                             error)))
284            collect x)
285      nil)
286    

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