aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorcolin <colin@cicadas.surf>2023-04-06 07:29:47 -0700
committercolin <colin@cicadas.surf>2023-04-06 07:29:47 -0700
commit10dfda16361f1feaaee64596abd3b3dcea25ebfa (patch)
tree4d9bd3dd409f5e4063cfa01b3ebaf40cd6a51a1a
parent341dc5227239f34b995f6c6f1cd40b9948d631e7 (diff)
Changed warnings
-rw-r--r--lazybones.lisp5
1 files changed, 1 insertions, 4 deletions
diff --git a/lazybones.lisp b/lazybones.lisp
index 970d212..9eb719a 100644
--- a/lazybones.lisp
+++ b/lazybones.lisp
@@ -298,11 +298,8 @@ Returns NIL on failure"
(when (search "//" template)
(warn "The proposed route ~s contains a double forward-slash (//), is this intended?"
template))
- (when (a:ends-with #\/ template)
- (warn "The proposed route ~s ends with a forward-slash (/), is this intended?"
- template))
(unless (eql #\/ (elt template 0))
- (warn "The proposed route ~s does not begin with a forward-slash, is this intended?"
+ (error "The proposed route ~s does not begin with a forward-slash, is this intended?"
template))
(loop for field in (str:split #\/ template)
for var? = (parse-route-variable-string field)