1.0.39: will be tagged as sbcl_1_0_39
[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 (defstruct a-struct slot)