(defparameter *unknown* '?)
(defmacro unknownp (x) `(eq ,x *unknown*))