Changeset 11480


Ignore:
Timestamp:
Dec 8, 2008, 5:05:27 PM (11 years ago)
Author:
gz
Message:

Add test for default-initargs optimization bug

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/ccl.lsp

    r11444 r11480  
    678678  t)
    679679 
     680(deftest ccl.52006
     681    (progn
     682      (defclass ccl.52006-class () ((slot :initarg :slot)) (:default-initargs :slot nil))
     683      (defun test-1 (args) (apply #'make-instance 'ccl.52006-class args))
     684      (ccl::optimize-make-instance-for-class-name 'ccl.52006-class)
     685      (slot-value (test-1 nil) 'slot))
     686  nil)
     687
     688
    680689;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    681690;;; ADVISE
Note: See TracChangeset for help on using the changeset viewer.