[claw-cvs] r11 - trunk/main/claw-core/src

[achiumenti at common-lisp.net]

Author: achiumenti
Date: Sun Feb 17 14:39:00 2008
New Revision: 11

Modified:
   trunk/main/claw-core/src/lisplet.lisp
Log:
corrected error hanling


Modified: trunk/main/claw-core/src/lisplet.lisp
==============================================================================
--- trunk/main/claw-core/src/lisplet.lisp	(original)
+++ trunk/main/claw-core/src/lisplet.lisp	Sun Feb 17 14:39:00 2008
@@ -86,7 +86,7 @@
 (setf *http-error-handler* 
       ;;overrides the default hunchentoot error handling
       #'(lambda (error-code)
-	  (let* ((error-handlers (current-lisplet))
+	  (let* ((error-handlers (lisplet-error-hadlers (current-lisplet)))
 		 (handler (gethash error-code error-handlers)))
 	    (if handler
 		(funcall handler)