diff options
| -rw-r--r-- | ironclad/macro-utils.lisp | 10 | ||||
| -rw-r--r-- | mulk-journal.asd | 2 |
2 files changed, 11 insertions, 1 deletions
diff --git a/ironclad/macro-utils.lisp b/ironclad/macro-utils.lisp new file mode 100644 index 0000000..f7a621f --- /dev/null +++ b/ironclad/macro-utils.lisp @@ -0,0 +1,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)) diff --git a/mulk-journal.asd b/mulk-journal.asd index 5e95e13..9dc15df 100644 --- a/mulk-journal.asd +++ b/mulk-journal.asd @@ -30,7 +30,7 @@ :components ((:module "cybertiggyr-time" :components ((:file "time"))) (:module "xmls" :components ((:file "xmls"))) - (:module "ironclad" :components ((:file "package") (:file "common") (:file "digest") (:file "sha1")) :serial t) + (:module "ironclad" :components ((:file "package") (:file "common") (:file "macro-utils") (:file "digest") (:file "sha1")) :serial t) (:file "defpackage") (:file "macros") (:file "globals") |