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

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

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

revision 1.3 by pfdietz, Mon Jul 12 02:24:28 2004 UTC revision 1.4 by pfdietz, Mon Aug 16 02:37:46 2004 UTC
# Line 230  Line 230 
230          collect x)          collect x)
231    nil)    nil)
232    
233    (deftest pprint-tab.error.5-unsafe
234      (loop for x in *mini-universe*
235            unless (or (member x '(:line :section :line-relative :section-relative))
236                       (eval `(signals-error (locally (declare (optimize (safety 0))) (pprint-tab ',x 1 1)) error)))
237            collect x)
238      nil)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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