Commit cce1fd0b authored by Dave Cooper's avatar Dave Cooper
Browse files

default to session url rewriting

parent 6e406491
......@@ -354,7 +354,7 @@ package-qualified object name\")
(let ((query (request-query req)))
(let* ((part (or part (rest (assoc "part" query :test #'string-equal))))
(part-type (read-safe-string part))
(session-urls? (assoc "session-urls" query :test #'string-equal))
(session-urls? (not (assoc "cookies" query :test #'string-equal)))
(path (format nil "~a/~a" (package-name (symbol-package part-type))
part-type)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment