August 2010 - bknr-cvs@common-lisp.net - mailman3.common-lisp.net

[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/
by BKNR Commits 29 Aug '10

29 Aug '10

Revision: 4603 Author: hans URL: http://bknr.net/trac/changeset/4603 Revive *SHOW-LISP-BACKTRACES-P* U trunk/thirdparty/hunchentoot/acceptor.lisp U trunk/thirdparty/hunchentoot/doc/index.xml U trunk/thirdparty/hunchentoot/request.lisp U trunk/thirdparty/hunchentoot/specials.lisp Modified: trunk/thirdparty/hunchentoot/acceptor.lisp =================================================================== --- trunk/thirdparty/hunchentoot/acceptor.lisp 2010-08-29 06:20:07 UTC (rev 4602) +++ trunk/thirdparty/hunchentoot/acceptor.lisp 2010-08-29 06:53:27 UTC (rev 4603) @@ -448,7 +448,7 @@ (when *headers-sent* (setq *close-hunchentoot-stream* t)) (throw 'handler-done - (values nil cond)))) + (values nil cond (and *show-lisp-backtraces-p* (get-backtrace)))))) (warning (lambda (cond) (when *log-lisp-warnings-p* Modified: trunk/thirdparty/hunchentoot/doc/index.xml =================================================================== --- trunk/thirdparty/hunchentoot/doc/index.xml 2010-08-29 06:20:07 UTC (rev 4602) +++ trunk/thirdparty/hunchentoot/doc/index.xml 2010-08-29 06:53:27 UTC (rev 4603) @@ -2683,6 +2683,12 @@ </clix:description> </clix:special-variable> + <clix:special-variable name='*show-lisp-backtraces-p*'> + <clix:description>Whether Lisp backtraces should be shown in HTML output if + <clix:ref>*SHOW-LISP-ERRORS-P*</clix:ref> is true and an error occurs. + </clix:description> + </clix:special-variable> + <clix:special-variable name='*approved-return-codes*'> <clix:description>A list of return codes the server should not treat as an error - see <clix:ref>*HANDLE-HTTP-ERRORS-P*</clix:ref>. @@ -3036,6 +3042,22 @@ </clix:chapter> + <clix:chapter name="debugging" title="Debugging"> + By default, Hunchentoot intercepts all errors that occur while + executing request handlers, logs them to the log file and displays + a static error page to the user. While developing applications, + you may want to change that behavior so that the debugger is + invoked when an error occurs. You can set + the <clix:ref>*CATCH-ERRORS-P*</clix:ref> to <code>NIL</code> to + make that happen. Alternatively, you may want to have Hunchentoot + display detailed error information in the error response page. + You can set the <clix:ref>*SHOW-LISP-ERRORS-P*</clix:ref> to a + true value to make that happen. If you don't want to see Lisp + backtraces in these error pages, you can + set <clix:ref>*SHOW-LISP-BACKTRACES-P*</clix:ref> + to <code>NIL</code>. + </clix:chapter> + <clix:chapter name="history" title="History"> Hunchentoot's predecessor <a href="http://weitz.de/tbnl/">TBNL</a> Modified: trunk/thirdparty/hunchentoot/request.lisp =================================================================== --- trunk/thirdparty/hunchentoot/request.lisp 2010-08-29 06:20:07 UTC (rev 4602) +++ trunk/thirdparty/hunchentoot/request.lisp 2010-08-29 06:53:27 UTC (rev 4603) @@ -216,7 +216,7 @@ (unwind-protect (with-mapped-conditions () (let* ((*request* request)) - (multiple-value-bind (body error) + (multiple-value-bind (body error backtrace) ;; skip dispatch if bad request (when (eql (return-code *reply*) +http-ok+) (catch 'handler-done @@ -224,9 +224,13 @@ (when error (setf (return-code *reply*) +http-internal-server-error+)) + (format t "show-error ~A show-backtrace ~A error ~A backtrace: ~A~%" + *show-lisp-errors-p* *show-lisp-backtraces-p* error backtrace) (start-output :content (cond ((and error *show-lisp-errors-p*) - (format nil "<pre>~A</pre>" - (escape-for-html (format nil "~A" error)))) + (format nil "<pre>~A~@[~%~%Backtrace:~A~]</pre>" + (escape-for-html (format nil "~A" error)) + (when *show-lisp-backtraces-p* + (escape-for-html (format nil "~A" backtrace))))) (error "An error has occured.") (t body)))))) Modified: trunk/thirdparty/hunchentoot/specials.lisp =================================================================== --- trunk/thirdparty/hunchentoot/specials.lisp 2010-08-29 06:20:07 UTC (rev 4602) +++ trunk/thirdparty/hunchentoot/specials.lisp 2010-08-29 06:53:27 UTC (rev 4603) @@ -196,6 +196,9 @@ (defvar *show-lisp-errors-p* nil "Whether Lisp errors in request handlers should be shown in HTML output.") +(defvar *show-lisp-backtraces-p* t + "Whether Lisp errors shown in HTML output should contain backtrace information.") + (defvar *log-lisp-errors-p* t "Whether Lisp errors in request handlers should be logged.")

1 0

[bknr-cvs] hans changed trunk/bknr/
by BKNR Commits 29 Aug '10

29 Aug '10

Revision: 4602 Author: hans URL: http://bknr.net/trac/changeset/4602 add README telling new repository D trunk/bknr/LICENSE A trunk/bknr/README Deleted: trunk/bknr/LICENSE =================================================================== --- trunk/bknr/LICENSE 2010-08-29 06:18:59 UTC (rev 4601) +++ trunk/bknr/LICENSE 2010-08-29 06:20:07 UTC (rev 4602) @@ -1,31 +0,0 @@ -Copyright (c) 2003-2008 BKNR (Hans Hübner, Manuel Odendahl, -David Lichteblau, Kilian Sprotte) -All rights reserved. - -Redistribution and use in source and binary forms, with or without -modification, are permitted provided that the following conditions are -met: - - - Redistributions of source code must retain the above copyright - notice, this list of conditions and the following disclaimer. - - - Redistributions in binary form must reproduce the above copyright - notice, this list of conditions and the following disclaimer in - the documentation and/or other materials provided with the - distribution. - - - Neither the name BKNR nor the names of its contributors may be - used to endorse or promote products derived from this software - without specific prior written permission. - -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT -LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR -A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT -OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, -SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT -LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY -THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT -(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE -OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. Added: trunk/bknr/README =================================================================== --- trunk/bknr/README (rev 0) +++ trunk/bknr/README 2010-08-29 06:20:07 UTC (rev 4602) @@ -0,0 +1,4 @@ +The BKNR framework has moved to github: + +http://github.com/hanshuebner/bknr-datastore +http://github.com/hanshuebner/bknr-web

1 0

[bknr-cvs] hans changed trunk/bknr/
by BKNR Commits 29 Aug '10

29 Aug '10

Revision: 4601 Author: hans URL: http://bknr.net/trac/changeset/4601 moved to http://github.com/hanshuebner/bknr-web D trunk/bknr/tools/ D trunk/bknr/web/

1 0

[bknr-cvs] hans changed trunk/bknr/datastore/
by BKNR Commits 29 Aug '10

29 Aug '10

Revision: 4600 Author: hans URL: http://bknr.net/trac/changeset/4600 moved to http://github.com/hanshuebner/bknr-datastore D trunk/bknr/datastore/

1 0

[bknr-cvs] hans changed trunk/bknr/
by BKNR Commits 29 Aug '10

29 Aug '10

Revision: 4599 Author: hans URL: http://bknr.net/trac/changeset/4599 move modules/ to web/modules/ D trunk/bknr/modules/ A trunk/bknr/web/modules/

1 0

[bknr-cvs] hans changed trunk/bknr/web/src/web/handlers.lisp
by BKNR Commits 29 Aug '10

29 Aug '10

Revision: 4598 Author: hans URL: http://bknr.net/trac/changeset/4598 remove own error handler U trunk/bknr/web/src/web/handlers.lisp Modified: trunk/bknr/web/src/web/handlers.lisp =================================================================== --- trunk/bknr/web/src/web/handlers.lisp 2010-08-25 16:01:39 UTC (rev 4597) +++ trunk/bknr/web/src/web/handlers.lisp 2010-08-29 06:05:06 UTC (rev 4598) @@ -316,19 +316,11 @@ (make-hash-table))) (*random-state* (make-random-state t))) (do-log-request) - (handler-bind - ((error #'(lambda (e) - (with-http-response (:content-type "text/html; charset=UTF-8" - :response +http-internal-server-error+) - (return-from invoke-handler (prog1 - (with-http-body () - (website-show-error-page *website* e)) - (do-error-log-request e))))))) - (let ((start (get-internal-real-time))) - (prog1 - (handle handler) - (let ((duration (- (get-internal-real-time) start))) - (note-run-time-for-statistics handler duration))))))) + (let ((start (get-internal-real-time))) + (prog1 + (handle handler) + (let ((duration (- (get-internal-real-time) start))) + (note-run-time-for-statistics handler duration)))))) (defmethod handle ((page-handler page-handler))

1 0

[bknr-cvs] hans changed trunk/thirdparty/cybertiggyr-time/cybertiggyr-time.asd
by BKNR Commits 25 Aug '10

25 Aug '10

Revision: 4597 Author: hans URL: http://bknr.net/trac/changeset/4597 add cybertiggyr-time.asd A trunk/thirdparty/cybertiggyr-time/cybertiggyr-time.asd Added: trunk/thirdparty/cybertiggyr-time/cybertiggyr-time.asd =================================================================== --- trunk/thirdparty/cybertiggyr-time/cybertiggyr-time.asd (rev 0) +++ trunk/thirdparty/cybertiggyr-time/cybertiggyr-time.asd 2010-08-25 16:01:39 UTC (rev 4597) @@ -0,0 +1,15 @@ +;;; -*- Mode: Lisp -*- +;;; +;;; $Header: /home/gene/library/website/docsrc/pdl/RCS/cybertiggyr-time.asd,v 395.1 2008/04/20 17:25:47 gene Exp $ +;;; +;;; Copyright (c) 2008 Gene Michael Stover. All rights reserved. +;;; + +(defsystem "cybertiggyr-time" + :description "Parse & print times" + :version "1" + :author "Gene Michael Stover <gene(a)acm.org>" + :license "Gnu Lesser General Public License" + :components ((:file "time"))) + +;;; --- end of file ---

1 0

[bknr-cvs] hans changed trunk/thirdparty/cybertiggyr-time/
by BKNR Commits 25 Aug '10

25 Aug '10

Revision: 4596 Author: hans URL: http://bknr.net/trac/changeset/4596 add cybertiggyr-time for rw site A trunk/thirdparty/cybertiggyr-time/ A trunk/thirdparty/cybertiggyr-time/demo.lisp A trunk/thirdparty/cybertiggyr-time/loadall.lisp A trunk/thirdparty/cybertiggyr-time/test.lisp A trunk/thirdparty/cybertiggyr-time/time.lisp Change set too large, please see URL above

1 0

[bknr-cvs] edi changed trunk/thirdparty/flexi-streams/doc/index.html
by BKNR Commits 24 Aug '10

24 Aug '10

Revision: 4595 Author: edi URL: http://bknr.net/trac/changeset/4595 BKNR U trunk/thirdparty/flexi-streams/doc/index.html Modified: trunk/thirdparty/flexi-streams/doc/index.html =================================================================== --- trunk/thirdparty/flexi-streams/doc/index.html 2010-08-24 07:41:59 UTC (rev 4594) +++ trunk/thirdparty/flexi-streams/doc/index.html 2010-08-24 07:42:33 UTC (rev 4595) @@ -254,6 +254,11 @@ </pre> This might take a while... +The current development version of FLEXI-STREAMS can be found +at <a href="http://bknr.net/trac/browser/trunk/thirdparty">http://bknr.net/trac/browser/trunk/thirdparty</a>. +This is the one to send <a href="#mail">patches</a> against. Use at +your own risk. + Luís Oliveira maintains a <a href="http://darcs.net/">darcs</a> repository of FLEXI-STREAMS at <a href="http://common-lisp.net/%7Eloliveira/ediware/">http://common-lisp.net/~loliveira/ediware/</a>.

1 0

[bknr-cvs] edi changed trunk/thirdparty/cl-who/doc/index.html
by BKNR Commits 24 Aug '10

24 Aug '10

Revision: 4594 Author: edi URL: http://bknr.net/trac/changeset/4594 BKNR U trunk/thirdparty/cl-who/doc/index.html Modified: trunk/thirdparty/cl-who/doc/index.html =================================================================== --- trunk/thirdparty/cl-who/doc/index.html 2010-08-24 07:39:59 UTC (rev 4593) +++ trunk/thirdparty/cl-who/doc/index.html 2010-08-24 07:41:59 UTC (rev 4594) @@ -267,11 +267,15 @@ href="http://www.gentoo.org/proj/en/common-lisp/index.xml">Gentoo Linux</a> thanks to Matthew Kennedy. In both cases, check if they have the newest version available. -Luís Oliveira maintains a <a href="http://darcs.net/">darcs</a> -repository of CL-WHO -at <a -href="http://common-lisp.net/~loliveira/ediware/">http://common-lisp.net/~loliveira/ediware/</a>. +The current development version of CL-WHO can be found +at <a href="http://bknr.net/trac/browser/trunk/thirdparty">http://bknr.net/trac/browser/trunk/thirdparty</a>. +This is the one to send <a href="#mail">patches</a> against. Use at +your own risk. +Luís Oliveira maintains an +unofficial <a href="http://darcs.net/">darcs</a> repository of CL-WHO +at <a href="http://common-lisp.net/~loliveira/ediware/">http://common-lisp.net/~loliveira/ediware/</a>. + You can run a test suite which tests some (but not all) aspects of the library with <pre>

1 0