Revision: 4522
Author: edi
URL: http://bknr.net/trac/changeset/4522
Safeguard measures against XSS attacks (J.P. Larocque)
U trunk/thirdparty/hunchentoot/CHANGELOG
U trunk/thirdparty/hunchentoot/headers.lisp
U trunk/thirdparty/hunchentoot/util.lisp
Modified: trunk/thirdparty/hunchentoot/CHANGELOG
===================================================================
--- trunk/thirdparty/hunchentoot/CHANGELOG 2010-03-23 12:57:15 UTC (rev 4521)
+++ trunk/thirdparty/hunchentoot/CHANGELOG 2010-03-30 13:22:17 UTC (rev 4522)
@@ -1,3 +1,4 @@
+Safeguard measures against XSS attacks (J.P. Larocque)
Prevent potential leak when closing stream (Matt Lamari, Martin Simmons)
Change some occurrences of HANDLER-CASE* to HANDLER-CASE (Hans Hübner, Allan Dee)
Modified: trunk/thirdparty/hunchentoot/headers.lisp
===================================================================
--- trunk/thirdparty/hunchentoot/headers.lisp 2010-03-23 12:57:15 UTC (rev 4521)
+++ trunk/thirdparty/hunchentoot/headers.lisp 2010-03-30 13:22:17 UTC (rev 4522)
@@ -157,15 +157,15 @@
((#.+http-internal-server-error+) content)
((#.+http-moved-temporarily+ #.+http-moved-permanently+)
(format nil "The document has moved <a href='~A'>here</a>"
- (header-out :location)))
+ (escape-for-html (header-out :location))))
((#.+http-authorization-required+)
"The server could not verify that you are authorized to access the document requested. Either you supplied the wrong credentials \(e.g., bad password), or your browser doesn't understand how to supply the credentials required.")
((#.+http-forbidden+)
(format nil "You don't have permission to access ~A on this server."
- (script-name request)))
+ (escape-for-html (script-name request))))
((#.+http-not-found+)
(format nil "The requested URL ~A was not found on this server."
- (script-name request)))
+ (escape-for-html (script-name request))))
((#.+http-bad-request+)
"Your browser sent a request that this server could not understand.")
(otherwise ""))
Modified: trunk/thirdparty/hunchentoot/util.lisp
===================================================================
--- trunk/thirdparty/hunchentoot/util.lisp 2010-03-23 12:57:15 UTC (rev 4521)
+++ trunk/thirdparty/hunchentoot/util.lisp 2010-03-30 13:22:17 UTC (rev 4522)
@@ -302,7 +302,7 @@
+implementation-link+
(escape-for-html (lisp-implementation-type))
(escape-for-html (lisp-implementation-version))
- (or (host *request*) (acceptor-address *acceptor*))
+ (escape-for-html (or (host *request*) (acceptor-address *acceptor*)))
(scan ":\\d+$" (or (host *request*) ""))
(acceptor-port *acceptor*)))
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>
Revision: 4518
Author: hans
URL: http://bknr.net/trac/changeset/4518
Debugging improved, patch supplied by Andrey Moskvitin.
Introduces a new parameter:
(defparameter *max-debugging-threads* 5
"Maximum number of simultaneous active calls invoke-debuger")
This can be used to limit the number of debuggers that can be opened
at once.
U trunk/thirdparty/hunchentoot/conditions.lisp
U trunk/thirdparty/hunchentoot/packages.lisp
U trunk/thirdparty/hunchentoot/specials.lisp
Modified: trunk/thirdparty/hunchentoot/conditions.lisp
===================================================================
--- trunk/thirdparty/hunchentoot/conditions.lisp 2010-02-26 11:39:21 UTC (rev 4517)
+++ trunk/thirdparty/hunchentoot/conditions.lisp 2010-03-07 09:16:10 UTC (rev 4518)
@@ -90,15 +90,55 @@
"Used to signal an error if an operation named NAME is not implemented."
(error 'operation-not-implemented :operation name))
+(defun kill-all-debugging-threads ()
+ "Used for destroy all debugging threads"
+ (with-lock-held (*debugging-threads-lock*)
+ (dolist (thread *debugging-threads*)
+ (when (ignore-errors
+ (bt:destroy-thread thread)
+ t)
+ (setf *debugging-threads*
+ (remove thread *debugging-threads*))))))
+
+(defun debug-mode-on ()
+ "Used to enable debug mode"
+ (setf *catch-errors-p* nil))
+
+(defun debug-mode-off (&optional (kill-debuging-threads t))
+ "Used to turn off debug mode"
+ (setf *catch-errors-p* t)
+ (when kill-debuging-threads
+ (kill-all-debugging-threads)))
+
+(defun after-close-swank-connection (connection)
+ "Turns off debug mode and destroy debugging threads after closing the connection with the swank-server"
+ (declare (ignore connection))
+ (debug-mode-off t))
+
+(when (find-package :swank)
+ (ignore-errors
+ (eval `(,(find-symbol (string '#:add-hook) :swank)
+ ,(find-symbol (string '#:*connection-closed-hook*) :swank)
+ 'after-close-swank-connection))))
+
(defgeneric maybe-invoke-debugger (condition)
(:documentation "This generic function is called whenever a
condition CONDITION is signaled in Hunchentoot. You might want to
specialize it on specific condition classes for debugging purposes.")
(:method (condition)
- "The default method invokes the debugger with CONDITION if
+ "The default method invokes the debugger with CONDITION if
*CATCH-ERRORS-P* is NIL."
- (unless *catch-errors-p*
- (invoke-debugger condition))))
+ (unless (or *catch-errors-p*
+ (< *max-debugging-threads*
+ (length *debugging-threads*)))
+ (let ((thread (bt:current-thread)))
+ (with-lock-held (*debugging-threads-lock*)
+ (push thread *debugging-threads*))
+ (unwind-protect
+ (invoke-debugger condition)
+ (with-lock-held (*debugging-threads-lock*)
+ (setf *debugging-threads*
+ (remove thread *debugging-threads*))))))))
(defmacro with-debugger (&body body)
"Executes BODY and invokes the debugger if an error is signaled and
Modified: trunk/thirdparty/hunchentoot/packages.lisp
===================================================================
--- trunk/thirdparty/hunchentoot/packages.lisp 2010-02-26 11:39:21 UTC (rev 4517)
+++ trunk/thirdparty/hunchentoot/packages.lisp 2010-03-07 09:16:10 UTC (rev 4518)
@@ -62,6 +62,7 @@
"*LOG-LISP-BACKTRACES-P*"
"*LOG-LISP-ERRORS-P*"
"*LOG-LISP-WARNINGS-P*"
+ "*MAX-DEBUGGING-THREADS*"
"*MESSAGE-LOG-PATHNAME*"
"*METHODS-FOR-POST-PARAMETERS*"
"*REPLY*"
@@ -264,5 +265,7 @@
"URL-DECODE"
"URL-ENCODE"
"USER-AGENT"
- "WITHIN-REQUEST-P"))
+ "WITHIN-REQUEST-P"
+ "DEBUG-MODE-ON"
+ "DEBUG-MODE-OFF"))
Modified: trunk/thirdparty/hunchentoot/specials.lisp
===================================================================
--- trunk/thirdparty/hunchentoot/specials.lisp 2010-02-26 11:39:21 UTC (rev 4517)
+++ trunk/thirdparty/hunchentoot/specials.lisp 2010-03-07 09:16:10 UTC (rev 4518)
@@ -236,6 +236,16 @@
"Whether Hunchentoot should catch and log errors \(or rather invoke
the debugger).")
+(defparameter *max-debugging-threads* 5
+ "Maximum number of simultaneous active calls invoke-debuger")
+
+(defvar *debugging-threads* nil
+ "List debugged threads")
+
+(defvar *debugging-threads-lock* (make-lock "debugging threads lock")
+ "A global lock to prevent two threads from modifying *debugging-threads* at
+the same time")
+
(defvar-unbound *acceptor*
"The current ACCEPTOR object while in the context of a request.")
Revision: 4514
Author: edi
URL: http://bknr.net/trac/changeset/4514
More compatibility fixes from Matthew
Prepare for 0.2.0 release
U trunk/thirdparty/cl-webdav/CHANGELOG.txt
U trunk/thirdparty/cl-webdav/authorized-file-resources.lisp
U trunk/thirdparty/cl-webdav/cl-webdav.asd
U trunk/thirdparty/cl-webdav/doc/index.html
U trunk/thirdparty/cl-webdav/file-resources.lisp
U trunk/thirdparty/cl-webdav/handlers.lisp
U trunk/thirdparty/cl-webdav/packages.lisp
U trunk/thirdparty/cl-webdav/properties.lisp
U trunk/thirdparty/cl-webdav/resources.lisp
U trunk/thirdparty/cl-webdav/specials.lisp
U trunk/thirdparty/cl-webdav/util.lisp
U trunk/thirdparty/cl-webdav/xml.lisp
Modified: trunk/thirdparty/cl-webdav/CHANGELOG.txt
===================================================================
--- trunk/thirdparty/cl-webdav/CHANGELOG.txt 2010-02-18 13:07:34 UTC (rev 4513)
+++ trunk/thirdparty/cl-webdav/CHANGELOG.txt 2010-02-21 13:14:21 UTC (rev 4514)
@@ -1,3 +1,5 @@
+Version 0.2.0
+2010-02-21
Changes to make CL-WEBDAV compatible with new Hunchentoot (Cyrus Harmon, Matthew Curry, and Ralf Mattes)
Version 0.1.2
Modified: trunk/thirdparty/cl-webdav/authorized-file-resources.lisp
===================================================================
--- trunk/thirdparty/cl-webdav/authorized-file-resources.lisp 2010-02-18 13:07:34 UTC (rev 4513)
+++ trunk/thirdparty/cl-webdav/authorized-file-resources.lisp 2010-02-21 13:14:21 UTC (rev 4514)
@@ -1,7 +1,7 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*-
;;; $Header: /usr/local/cvsrep/cl-webdav/authorized-file-resources.lisp,v 1.7 2007/04/18 19:21:00 edi Exp $
-;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved.
+;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved.
;;; Redistribution and use in source and binary forms, with or without
;;; modification, are permitted provided that the following conditions
Modified: trunk/thirdparty/cl-webdav/cl-webdav.asd
===================================================================
--- trunk/thirdparty/cl-webdav/cl-webdav.asd 2010-02-18 13:07:34 UTC (rev 4513)
+++ trunk/thirdparty/cl-webdav/cl-webdav.asd 2010-02-21 13:14:21 UTC (rev 4514)
@@ -1,7 +1,7 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
;;; $Header: /usr/local/cvsrep/cl-webdav/cl-webdav.asd,v 1.7 2007/10/21 21:20:56 edi Exp $
-;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved.
+;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved.
;;; Redistribution and use in source and binary forms, with or without
;;; modification, are permitted provided that the following conditions
@@ -29,7 +29,7 @@
(asdf:defsystem :cl-webdav
:serial t
- :version "0.1.2"
+ :version "0.2.0"
:components ((:file "packages")
(:file "specials")
(:file "util")
Modified: trunk/thirdparty/cl-webdav/doc/index.html
===================================================================
--- trunk/thirdparty/cl-webdav/doc/index.html 2010-02-18 13:07:34 UTC (rev 4513)
+++ trunk/thirdparty/cl-webdav/doc/index.html 2010-02-21 13:14:21 UTC (rev 4514)
@@ -74,13 +74,13 @@
<br> <br><h3><a class=none name="download">Download and installation</a></h3>
CL-WEBDAV together with this documentation can be downloaded
-from <a
-href="http://weitz.de/files/cl-webdav.tar.gz">http://weitz.de/files/cl-webdav.tar.gz</a>. The
-current version is 0.1.2. It depends
+from <a href="http://weitz.de/files/cl-webdav.tar.gz">http://weitz.de/files/cl-webdav.tar.gz</a>. The
+current version is 0.2.0. It depends
on <a href="http://common-lisp.net/project/cxml/">Closure
XML</a>, <a href="http://weitz.de/cl-fad/">CL-FAD</a>,
-and <a href="http://weitz.de/hunchentoot/">Hunchentoot</a>, and can be
-compiled and loaded with <a href="http://www.cliki.net/asdf">ASDF</a>.
+and <a href="http://weitz.de/hunchentoot/">Hunchentoot</a> (version
+1.1.0 or higher), and can be compiled and loaded
+with <a href="http://www.cliki.net/asdf">ASDF</a>.
<p>
A <a href="http://www.selenic.com/mercurial/wiki/">Mercurial</a>
repository of older versions is available
Modified: trunk/thirdparty/cl-webdav/file-resources.lisp
===================================================================
--- trunk/thirdparty/cl-webdav/file-resources.lisp 2010-02-18 13:07:34 UTC (rev 4513)
+++ trunk/thirdparty/cl-webdav/file-resources.lisp 2010-02-21 13:14:21 UTC (rev 4514)
@@ -1,7 +1,7 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*-
;;; $Header: /usr/local/cvsrep/cl-webdav/file-resources.lisp,v 1.7 2007/04/18 19:21:00 edi Exp $
-;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved.
+;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved.
;;; Redistribution and use in source and binary forms, with or without
;;; modification, are permitted provided that the following conditions
Modified: trunk/thirdparty/cl-webdav/handlers.lisp
===================================================================
--- trunk/thirdparty/cl-webdav/handlers.lisp 2010-02-18 13:07:34 UTC (rev 4513)
+++ trunk/thirdparty/cl-webdav/handlers.lisp 2010-02-21 13:14:21 UTC (rev 4514)
@@ -1,7 +1,7 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*-
;;; $Header: /usr/local/cvsrep/cl-webdav/handlers.lisp,v 1.13 2007/05/19 22:34:35 edi Exp $
-;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved.
+;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved.
;;; Redistribution and use in source and binary forms, with or without
;;; modification, are permitted provided that the following conditions
@@ -176,7 +176,7 @@
(setf (header-out :content-language) content-language))
(handle-if-modified-since write-date)
(when (equal etag (header-in* :if-none-match))
- (setf (return-code) +http-not-modified+)
+ (setf (return-code*) +http-not-modified+)
(abort-request-handler))
(setf (header-out :last-modified) (rfc-1123-date write-date)
(content-length*) (resource-length resource))
Modified: trunk/thirdparty/cl-webdav/packages.lisp
===================================================================
--- trunk/thirdparty/cl-webdav/packages.lisp 2010-02-18 13:07:34 UTC (rev 4513)
+++ trunk/thirdparty/cl-webdav/packages.lisp 2010-02-21 13:14:21 UTC (rev 4514)
@@ -1,7 +1,7 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
;;; $Header: /usr/local/cvsrep/cl-webdav/packages.lisp,v 1.16 2007/04/18 19:49:32 edi Exp $
-;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved.
+;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved.
;;; Redistribution and use in source and binary forms, with or without
;;; modification, are permitted provided that the following conditions
Modified: trunk/thirdparty/cl-webdav/properties.lisp
===================================================================
--- trunk/thirdparty/cl-webdav/properties.lisp 2010-02-18 13:07:34 UTC (rev 4513)
+++ trunk/thirdparty/cl-webdav/properties.lisp 2010-02-21 13:14:21 UTC (rev 4514)
@@ -1,7 +1,7 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*-
;;; $Header: /usr/local/cvsrep/cl-webdav/properties.lisp,v 1.9 2008/06/25 08:04:25 edi Exp $
-;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved.
+;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved.
;;; Redistribution and use in source and binary forms, with or without
;;; modification, are permitted provided that the following conditions
Modified: trunk/thirdparty/cl-webdav/resources.lisp
===================================================================
--- trunk/thirdparty/cl-webdav/resources.lisp 2010-02-18 13:07:34 UTC (rev 4513)
+++ trunk/thirdparty/cl-webdav/resources.lisp 2010-02-21 13:14:21 UTC (rev 4514)
@@ -1,7 +1,7 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*-
;;; $Header: /usr/local/cvsrep/cl-webdav/resources.lisp,v 1.12 2007/04/18 19:21:00 edi Exp $
-;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved.
+;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved.
;;; Redistribution and use in source and binary forms, with or without
;;; modification, are permitted provided that the following conditions
Modified: trunk/thirdparty/cl-webdav/specials.lisp
===================================================================
--- trunk/thirdparty/cl-webdav/specials.lisp 2010-02-18 13:07:34 UTC (rev 4513)
+++ trunk/thirdparty/cl-webdav/specials.lisp 2010-02-21 13:14:21 UTC (rev 4514)
@@ -1,7 +1,7 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*-
;;; $Header: /usr/local/cvsrep/cl-webdav/specials.lisp,v 1.10 2008/06/25 08:02:17 edi Exp $
-;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved.
+;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved.
;;; Redistribution and use in source and binary forms, with or without
;;; modification, are permitted provided that the following conditions
Modified: trunk/thirdparty/cl-webdav/util.lisp
===================================================================
--- trunk/thirdparty/cl-webdav/util.lisp 2010-02-18 13:07:34 UTC (rev 4513)
+++ trunk/thirdparty/cl-webdav/util.lisp 2010-02-21 13:14:21 UTC (rev 4514)
@@ -1,7 +1,7 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*-
;;; $Header: /usr/local/cvsrep/cl-webdav/util.lisp,v 1.3 2007/04/17 07:42:08 edi Exp $
-;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved.
+;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved.
;;; Redistribution and use in source and binary forms, with or without
;;; modification, are permitted provided that the following conditions
@@ -36,7 +36,7 @@
`(defun ,name ()
,(format nil "Sets RETURN-CODE to ~A and then calls ABORT-REQUEST-HANDLER."
return-code)
- (setf (return-code) ,return-code)
+ (setf (return-code*) ,return-code)
(abort-request-handler)))
(define-return-code-shortcut not-implemented +http-not-implemented+)
Modified: trunk/thirdparty/cl-webdav/xml.lisp
===================================================================
--- trunk/thirdparty/cl-webdav/xml.lisp 2010-02-18 13:07:34 UTC (rev 4513)
+++ trunk/thirdparty/cl-webdav/xml.lisp 2010-02-21 13:14:21 UTC (rev 4514)
@@ -1,7 +1,7 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*-
;;; $Header: /usr/local/cvsrep/cl-webdav/xml.lisp,v 1.10 2007/10/21 21:20:56 edi Exp $
-;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved.
+;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved.
;;; Redistribution and use in source and binary forms, with or without
;;; modification, are permitted provided that the following conditions
