1. Stephen Compall
  2. weblocks-dev


Leslie P. Polzer  committed b24be23

Port to latest Hunchentoot (1.2.x series).

  • Participants
  • Parent commits 7865841
  • Branches default

Comments (0)

Files changed (2)

File src/error-handler.lisp

View file
 (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)

File src/server.lisp

View file
   (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)