[cl-net-snmp-cvs] r89 - vendor/cl-http/server

[ctian at common-lisp.net]

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)))