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

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

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

revision 1.122 by pfdietz, Fri May 6 13:34:41 2005 UTC revision 1.123 by pfdietz, Mon Jun 13 14:24:44 2005 UTC
# Line 1155  the condition to go uncaught if it canno Line 1155  the condition to go uncaught if it canno
1155                                    (string x))                                    (string x))
1156                           t)                           t)
1157                      (type-error () nil))))                      (type-error () nil))))
1158    
1159    (defmacro def-fold-test (name form)
1160      "Create a test that FORM, which should produce a fresh value,
1161       does not improperly introduce sharing during constant folding."
1162      `(deftest ,name
1163         (flet ((%f () (declare (optimize (speed 3) (safety 0) (space 0)
1164                                          (compilation-speed 0) (debug 0)))
1165                   ,form))
1166           (eq (%f) (%f)))
1167         nil))

Legend:
Removed from v.1.122  
changed lines
  Added in v.1.123

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