tests/undefined-classoid-bug-2.lisp

   1 (in-package "CL-USER")
   2
   3 (defun a-struct-referencer-2 (struct)
   4   (a-struct-slot struct))
   5
   6 (defun a-class-typep (x)
   7   (typep x 'a-class))
   8
   9 (defstruct a-struct slot)
  10
  11 (defclass a-class ()
  12   ())