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

[ctian at common-lisp.net]

Author: ctian
Date: Sat Oct 20 03:27:49 2007
New Revision: 88

Modified:
   vendor/cl-http/server/variables.lisp
Log:
Try to use lw:*default-character-element-type*

Modified: vendor/cl-http/server/variables.lisp
==============================================================================
--- vendor/cl-http/server/variables.lisp	(original)
+++ vendor/cl-http/server/variables.lisp	Sat Oct 20 03:27:49 2007
@@ -349,7 +349,8 @@
              #+(or Genera ACLPC) 'character
              #+MCL (symbol-value 'ccl:*default-character-type*)
              #+LispWorks3.2 'base-character
-             #+(or Allegro Lucid CMU LispWorks4 LispWorks5) 'base-char
+             #+(or Allegro Lucid CMU LispWorks4) 'base-char
+	     #+LispWorks5 (symbol-value 'lw:*default-character-element-type*)
              #-(or Genera Allegro ACLPC MCL LispWorks Lucid CMU) 'base-character)
 
 (define-constant +standard-text-copy-mode+