Changeset 15391

Timestamp:

May 26, 2012, 8:09:59 AM (13 years ago)

Author:

Gary Byers

Message:

Ensure that the defstruct for CCL.40055 is defined at (SAFETY 3).

File:

• trunk/tests/ansi-tests/ccl.lsp (modified) (1 diff)

trunk/tests/ansi-tests/ccl.lsp

@@ -71 +71 @@
   1)
 
-(defstruct ccl.40055 (a 0 :type integer))
+;;; It's not clear if it's ever been different, but typechecking done
+;;; by defstruct constructors depends on optimization settings in effect
+;;; when the constructor was compiled.
+;;; Do we inline constuctors ???
+
+(locally
+    (declare (optimize (safety 3)))
+  (defstruct ccl.40055 (a 0 :type integer)))
 
 (deftest ccl.40055 ;; fixed in r9237 and r9240