Really restore clisp cross-compilation.
[sbcl.git] / 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   ())