In System 78.35, ZMail 38.5, microcode 840, on Lisp Machine Fifteen: The following once-only expands incorrectly on (pairp (caar x)) (defmacro pairp (object) (once-only (object) `(and ,object (listp ,object))))