Given some structure, say:
Code: Select all
(defstruct quux
name)
Code: Select all
#S(quux :name "Guy")
Code: Select all
`(#S(quux :name "Guy"))
=>
"unrecognized object in quasiquote"
Code: Select all
(defun literalp (x)
"predicate that tells whether X is the source form for a literal expression."
(typep x '(or boolean number character array keyword)))