More fixes for SBCL

--Apple-Mail-1-942922519
Content-Transfer-Encoding: quoted-printable
Content-Type: text/plain;
	charset=us-ascii

SBCL's string type is (SIMPLE-ARRAY CHARACTER ...):

* (type-of "xxx")

(SIMPLE-ARRAY CHARACTER (3))

This type, if processed by function 'string-type-symbol, only the part =
SIMPLE-ARRAY left, which cannot be used as a valid sequence type for =
'concatenate.

Attached patch fixed this, this was learnt from kpoeck the first time =
when I reported SBCL related bug.

--binghe


--Apple-Mail-1-942922519
Content-Disposition: attachment;
	filename=cl-http-sbcl-string-type-symbol.diff
Content-Type: application/octet-stream;
	x-unix-mode=0644;
	name="cl-http-sbcl-string-type-symbol.diff"
Content-Transfer-Encoding: 7bit

Index: server/log.lisp
===================================================================
--- server/log.lisp	(revision 91)
+++ server/log.lisp	(revision 92)
@@ -354,7 +354,7 @@
 
 (defmethod %file-name-for-log ((log basic-log-mixin))
    (with-slots (log-file-name port) log
-     (concatenate (string-type-symbol log-file-name) log-file-name "-" (write-to-string port :base 10.))))
+     (concatenate 'string log-file-name "-" (write-to-string port :base 10.))))
 
 (define-generic initialize-log-filename (file-logging-mixin)
   (declare (values log))
@@ -777,7 +777,7 @@
                (values (write-to-string year :base 10.)
                        (format nil "~2,'0D" month)
                        (let ((name (pathname-external-name-string log-name)))
-                         (concatenate (string-type-symbol name) (write-iso-date year month day nil) "-" name))))))
+                         (concatenate 'string (write-iso-date year month day nil) "-" name))))))
       (declare (inline date-name))
       (multiple-value-bind (year month name)
           (date-name (pathname-name filename))

--Apple-Mail-1-942922519
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
WWW-CL mailing list
[email protected]
https://lists.csail.mit.edu/mailman/listinfo/www-cl

--Apple-Mail-1-942922519--