Skip to content
Browse files

Putting back sans function.

  • Loading branch information...
1 parent e137519 commit 5538f27e9bddddca944d5a11600e87d92513f14b @gigamonkey committed Nov 14, 2011
Showing with 3 additions and 0 deletions.
  1. +3 −0 util.lisp
View
3 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))

0 comments on commit 5538f27

Please sign in to comment.
Something went wrong with that request. Please try again.