mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
8 lines
138 B
Common Lisp
8 lines
138 B
Common 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))
|