Anonymous avatar Anonymous committed b24be23

Port to latest Hunchentoot (1.2.x series).

Comments (0)

Files changed (2)


 (export '(handle-http-error handle-error-condition print-trivial-backtrace))
-(setf hunchentoot:*handle-http-errors-p* nil)
 (defmacro with-error-page-html ((title heading &optional description) &body body)
   (log-message :debug "Application dispatch failed for '~A'" (script-name request)))
 ;; Redirect to default app if all other handlers fail
+;; *** removed from Hunchentoot; find another way to implement this.
 (setf hunchentoot:*default-handler*
       (lambda ()
 	(if (null (tokenize-uri (script-name*) nil))
 		(start-webapp 'weblocks-default))
 	      (redirect "/weblocks-default"))
 	    (setf (return-code*) +http-not-found+))))
 ;; install weblocks-dispatcher
 (eval-when (:load-toplevel)
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.