Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

http-resource redirects to / when no redirect is given (ex: when refe…

…rer isn't set, see authentication.lisp)
  • Loading branch information...
commit e002e48411d6147a1863b7928cb073307be5128a 1 parent ee093d0
@vsedach authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  src/http-resource.lisp
View
2  src/http-resource.lisp
@@ -15,4 +15,4 @@
`(%defpage ,page :post ,(mapcar (lambda (p)
(list p :request-type :both))
parameters)
- (redirect (progn ,@body) :code 303)))
+ (redirect (or (progn ,@body) "/") :code 303)))
Please sign in to comment.
Something went wrong with that request. Please try again.