Author: ctian Date: Sat Oct 20 03:40:41 2007 New Revision: 89

Modified: vendor/cl-http/server/url.lisp Log: match LispWorks 5 API

Modified: vendor/cl-http/server/url.lisp ============================================================================== --- vendor/cl-http/server/url.lisp (original) +++ vendor/cl-http/server/url.lisp Sat Oct 20 03:40:41 2007 @@ -2873,7 +2873,7 @@

(defsetf description %set-description)

-(defmethod documentation ((url documentation-mixin) #-(or CMU LispWorks4) &optional doc-type) +(defmethod documentation ((url documentation-mixin) #-(or CMU LispWorks4 LispWorks5) &optional doc-type) (declare (ignore doc-type)) (with-slots (plist) url (getf plist :description)))