tests/undefined-classoid-bug-1.lisp

   1 (in-package "CL-USER")
   2
   3 (defun a-struct-referencer-1 (struct)
   4   (a-struct-slot struct))
   5
   6 (defun a-class-typep-2 (x)
   7   (typep x 'a-class))