Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fixed Clack.Util.Route to think about Modern mode of Allegro.

  • Loading branch information...
commit 9630f766a1b127c1bc6ff2ea5e76336316bf74a3 1 parent 1598c20
@fukamachi authored
Showing with 2 additions and 4 deletions.
  1. +2 −4 src/util/route.lisp
View
6 src/util/route.lisp
@@ -13,9 +13,7 @@
:scan-to-strings
:regex-replace-all
:split
- :quote-meta-chars)
- (:import-from :alexandria
- :make-keyword))
+ :quote-meta-chars))
(in-package :clack.util.route)
(cl-syntax:use-syntax :annot)
@@ -68,7 +66,7 @@
and collect "(.*?)" into re
and collect "~A" into cs
else if name
- collect (make-keyword (string-upcase name)) into names
+ collect (read-from-string (concatenate 'string ":" name)) into names
and collect "([^/?#]+)" into re
and collect "~A" into cs
finally
Please sign in to comment.
Something went wrong with that request. Please try again.