summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ironclad/macro-utils.lisp10
-rw-r--r--mulk-journal.asd2
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")