Changeset 11480
- Timestamp:
- Dec 8, 2008, 5:05:27 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/tests/ansi-tests/ccl.lsp
r11444 r11480 678 678 t) 679 679 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 680 689 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 681 690 ;;; ADVISE
Note: See TracChangeset
for help on using the changeset viewer.