add default 404 handler

travels.asd

@@ -6,7 +6,7 @@
 (defsystem travels
   :version "0.1"
   :author "Innokenty Enikeev"
-  :license ""
+  :license "BSD 3-Clause"
   :depends-on (:clack
                :lack
                :quri

travels.lisp

@@ -218,6 +218,7 @@
 (myway:connect *mapper* "/:entity/:id" 'get-entity)
 (myway:connect *mapper* "/users/:id/visits" 'user-visits)
 (myway:connect *mapper* "/locations/:id/avg" 'location-avg-mark)
+(myway:connect *mapper* "*" (lambda (p) (declare (ignore p)) '(404 nil nil)))
 
 (defun main ()
   (setf *storage* (load-data "data.zip"))