mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
13 lines
191 B
Common Lisp
13 lines
191 B
Common Lisp
(in-package "CL-USER")
|
|
|
|
(defun a-struct-referencer-2 (struct)
|
|
(a-struct-slot struct))
|
|
|
|
(defun a-class-typep (x)
|
|
(typep x 'a-class))
|
|
|
|
(defstruct a-struct slot)
|
|
|
|
(defclass a-class ()
|
|
())
|