[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/

[BKNR Commits]

Revision: 4519
Author: hans
URL: http://bknr.net/trac/changeset/4519

Documentation update and typo fix from Andrey Moskvitin.

U   trunk/thirdparty/hunchentoot/conditions.lisp
U   trunk/thirdparty/hunchentoot/doc/index.xml

Modified: trunk/thirdparty/hunchentoot/conditions.lisp
===================================================================
--- trunk/thirdparty/hunchentoot/conditions.lisp	2010-03-07 09:16:10 UTC (rev 4518)
+++ trunk/thirdparty/hunchentoot/conditions.lisp	2010-03-09 16:47:23 UTC (rev 4519)
@@ -104,10 +104,10 @@
   "Used to enable debug mode"
   (setf *catch-errors-p* nil))
 
-(defun debug-mode-off (&optional (kill-debuging-threads t))
+(defun debug-mode-off (&optional (kill-debugging-threads t))
   "Used to turn off debug mode"
   (setf *catch-errors-p* t)
-  (when kill-debuging-threads
+  (when kill-debugging-threads
     (kill-all-debugging-threads)))
 
 (defun after-close-swank-connection (connection)
@@ -129,8 +129,8 @@
     "The default method invokes the debugger with CONDITION if
 *CATCH-ERRORS-P* is NIL."
     (unless (or *catch-errors-p*
-                (< *max-debugging-threads*
-                   (length *debugging-threads*)))
+                (<= *max-debugging-threads*
+                    (length *debugging-threads*)))
       (let ((thread (bt:current-thread)))
         (with-lock-held (*debugging-threads-lock*)
           (push thread *debugging-threads*))

Modified: trunk/thirdparty/hunchentoot/doc/index.xml
===================================================================
--- trunk/thirdparty/hunchentoot/doc/index.xml	2010-03-07 09:16:10 UTC (rev 4518)
+++ trunk/thirdparty/hunchentoot/doc/index.xml	2010-03-09 16:47:23 UTC (rev 4519)
@@ -152,6 +152,12 @@
       <a href="http://common-lisp.net/~loliveira/ediware/">http://common-lisp.net/~loliveira/ediware/</a>.
     </p>
 
+    <p>
+      Andrey Moskvitin maintains a <a href="http://git-scm.com/">git</a>
+      repository of Hunchentoot at
+      <a href="http://github.com/archimag/hunchentoot">http://github.com/archimag/hunchentoot</a>.
+    </p>
+
     <clix:subchapter name="proxy" title="Hunchentoot behind a proxy">
 
       If you're feeling unsecure about exposing Hunchentoot to the wild,
@@ -2646,6 +2652,45 @@
     </clix:description>
   </clix:special-variable>
 
+  <clix:function name='debug-mode-on'>
+    <clix:description>
+Enable debug mode: sets the value of <clix:ref>*CATCH-ERRORS-P*</clix:ref> to <code>NIL</code>.
+    </clix:description>
+  </clix:function>
+
+  <clix:function name='debug-mode-off'>
+   <clix:lambda-list><clix:lkw>optional</clix:lkw> kill-debugging-threads
+   </clix:lambda-list>
+    <clix:description>
+Disable debug mode: sets the value
+of <clix:ref>*CATCH-ERRORS-P*</clix:ref> to <code>T</code>.  If the
+value of <clix:arg>kill-debugging-threads</clix:arg>
+is <code>T</code>, which is the default, all threads that are sent to
+the debugger by <clix:ref>MAYBE-INVOKE-DEBUGGER</clix:ref> will be
+terminated.  If
+a <a href="http://common-lisp.net/project/slime/">swank</a> server is
+present, <code>(debug-mode-off t)</code> will be automatically be
+called after the connection to the swank server is established: this
+provides some protection when debug mode has accidentially been
+enabled in a production environment.
+    </clix:description>
+  </clix:function>
+
+  <clix:special-variable name='*max-debugging-threads*'>
+    <clix:description>
+This variable determines the maximum number of threads that are sent
+to
+the <a href="http://www.lispworks.com/documentation/HyperSpec/Body/26_glo_d.htm#debugger">debugger</a>
+by <clix:ref>MAYBE-INVOKE-DEBUGGER</clix:ref>.  The default for this
+parameter is 5.  Once this limit is
+reached, <clix:ref>MAYBE-INVOKE-DEBUGGER</clix:ref> does not invoke
+the debugger for new threads that signal an error.  This behavior can
+be helpful for safer debugging a production environment.
+See <clix:ref>MAYBE-INVOKE-DEBUGGER</clix:ref> if you want to
+fine-tune this behaviour.
+    </clix:description>
+  </clix:special-variable>
+
   <clix:function generic='true' name='maybe-invoke-debugger'>
   <clix:lambda-list>condition
   </clix:lambda-list>
@@ -2660,7 +2705,9 @@
 method <a
 href="http://www.lispworks.com/documentation/HyperSpec/Body/f_invoke.htm">invokes
 the debugger</a> with <clix:arg>condition</clix:arg> if
-<clix:ref>*CATCH-ERRORS-P*</clix:ref> is <code>NIL</code>.
+<clix:ref>*CATCH-ERRORS-P*</clix:ref> is <code>NIL</code> and the number of active <a
+href="http://www.lispworks.com/documentation/HyperSpec/Body/26_glo_d.htm#debugger">debuggers</a>
+is less than <clix:ref>*MAX-DEBUGGING-THREADS*</clix:ref>.
     </clix:description>
   </clix:function>