Fix (make-array integer :adjustable t :fill-pointer unknown).

[sbcl.git] / tests / undefined-classoid-bug-1.lisp

(in-package "CL-USER")

(defun a-struct-referencer-1 (struct)
  (a-struct-slot struct))

(defun a-class-typep-2 (x)
  (typep x 'a-class))