1 2 3 4 5 6 7 8 9 10
;;;; macro-utils.lisp -- things to make compiler macros easier (in-package :crypto) (defun quotationp (thing) (and (consp thing) (consp (rest thing)) (cl:null (cddr thing)) (eq (first thing) 'quote))) (defun unquote (thing) (if (quotationp thing) (second thing) thing))