/[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.49 by pfdietz, Sat Feb 22 22:45:10 2003 UTC revision 1.50 by pfdietz, Sun Feb 23 17:11:13 2003 UTC
# Line 4  Line 4 
4  ;;;; Contains: Aux. functions for CL-TEST  ;;;; Contains: Aux. functions for CL-TEST
5    
6  (in-package :cl-test)  (in-package :cl-test)
 (use-package :rt)  
7    
8  (declaim (optimize (safety 3)))  (declaim (optimize (safety 3)))
9    
# Line 287  the condition to go uncaught if it canno Line 286  the condition to go uncaught if it canno
286                                (muffle-warning))))                                (muffle-warning))))
287                  (proclaim '(optimize (safety 3)))                  (proclaim '(optimize (safety 3)))
288                  (classify-error*                  (classify-error*
289                   (if rt::*compile-tests*                   (if regression-test::*compile-tests*
290                       (funcall (compile nil `(lambda ()                       (funcall (compile nil `(lambda ()
291                                                (declare (optimize (safety 3)))                                                (declare (optimize (safety 3)))
292                                                ,form)))                                                ,form)))

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

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