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+