tests/package-ctor-bug.lisp

   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)))