From 41ab19abcfda6dfa43005686952bfe33fa06ef54 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sat, 30 Jun 2007 23:01:34 +0200
Subject: Move all macro definitions into a separate file.

darcs-hash:aa001fe6707d0ddb94ceb1a4e82515894218fdf2
---
 utils.lisp | 23 -----------------------
 1 file changed, 23 deletions(-)

(limited to 'utils.lisp')

diff --git a/utils.lisp b/utils.lisp
index 9ce14b1..2bb2f1e 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -67,22 +67,6 @@
   markup)
 
 
-(defmacro regex-case (string &body clauses)
-  (once-only (string)
-    `(cond ,@(loop for (keys . forms) in clauses
-                collect
-                  `(,(if (and (symbolp keys)
-                              (or (eq t keys)
-                                  (equal "OTHERWISE" (symbol-name keys))))
-                         't
-                         `(or ,@(loop for key in (if (listp keys)
-                                                     keys
-                                                     (list keys))
-                                   collect
-                                     `(ppcre:scan-to-strings ,key ,string))))
-                     ,@forms)))))
-
-
 (defun name-of-day (day-of-week)
   (case day-of-week
     (0 "Montag")
@@ -204,13 +188,6 @@ ELEMENT-TYPE as the stream's."
             string)))))
 
 
-(defmacro with-result-cache ((cache-id &key (younger-than nil younger-than-p))
-                             &body body)
-  `(call-with-result-cache ,cache-id
-                           #'(lambda () ,@body)
-                           ,@(and younger-than-p `(:younger-than ,younger-than))))
-
-
 (defun format-date (destination date-control-string universal-time
                     &optional (time-zone nil time-zone-supplied-p))
   (with-result-cache ((format nil "date-format-~D-~A-~A"
-- 
cgit v1.2.3