?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
1.0.12.29: optimize POSITION & FIND families for strings
[sbcl.git] / tests / package-ctor-bug.lisp
blobe4285f4b5739d4a2385b28c4e4fd60cc40beb2a1
1 (defpackage "PACKAGE-CTOR-BUG"
2 (:use "CL")
3 (:export "TEST"))
4
5 (in-package "PACKAGE-CTOR-BUG")
6
7 (defclass fooass ()
8 ((flot :initarg :flot :reader flot)))
9
10 (defun test ()
11 (flot (make-instance 'fooass :flot 3)))
Common Lisp compiler and runtime