Changeset 11480

Timestamp:

Dec 8, 2008, 5:05:27 PM (13 years ago)

Author:

gz

Message:

Add test for default-initargs optimization bug

File:

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

trunk/tests/ansi-tests/ccl.lsp

@@ -678 +678 @@
   t)
   
+(deftest ccl.52006
+    (progn
+      (defclass ccl.52006-class () ((slot :initarg :slot)) (:default-initargs :slot nil))
+      (defun test-1 (args) (apply #'make-instance 'ccl.52006-class args))
+      (ccl::optimize-make-instance-for-class-name 'ccl.52006-class)
+      (slot-value (test-1 nil) 'slot))
+  nil)
+
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; ADVISE