Parent Directory | Revision Log | 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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |