diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-08 22:16:34 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-08 22:16:34 +0200 |
| commit | 2d574face5edc74d932df5317cbd9b0b672c5cfe (patch) | |
| tree | 206f1e53d3ef8fa2e3d18555a9cc89fd62e7c06e | |
| parent | 09db73007a5b807daadd9d57f11b4adc861eba15 (diff) | |
Add util-macros.lisp to our Ironclad fork.
Ignore-this: 95ba9ec94b949f41b8c9ebefe3712880
darcs-hash:75d28ef9577590743bf320b39d1acffe70882e83
| -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") |