Putting back sans function.

gigamonkey · Nov 14, 2011 · 5538f27 · 5538f27
1 parent e137519
commit 5538f27
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/util.lisp b/util.lisp
@@ -212,3 +212,6 @@ inclusion in HTML output."
               (escaped (or host (address (acceptor request))))
               (scan ":\\d+$" (or host ""))
               (port (acceptor request))))))
+
+(defun sans (args &rest to-remove)
+  (loop for (k v) on args by #'cddr unless (member k to-remove) collect k and collect v))