Permalink
Browse files

fix small bug in genurl

  • Loading branch information...
1 parent 39bf112 commit 80e4124590e107028e5eae08bb7cfda0b2cf9bbc @archimag committed Oct 19, 2009
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/route.lisp
View
@@ -180,7 +180,8 @@
(routes::apply-bindings (eval (get route-symbol :template))
(iter (for pair in (alexandria:plist-alist args))
(collect (cons (car pair)
- (if (stringp (cdr pair))
+ (if (or (stringp (cdr pair))
+ (consp (cdr pair)))
(cdr pair)
(write-to-string (cdr pair)))))))))

0 comments on commit 80e4124

Please sign in to comment.