Update of /project/cl-store/cvsroot/cl-store In directory common-lisp.net:/tmp/cvs-serv12920
Modified Files: default-backend.lisp Log Message: Fixed type specifier for simple-standard-string for clisp.
Date: Tue Aug 17 05:03:28 2004 Author: sross
Index: cl-store/default-backend.lisp diff -u cl-store/default-backend.lisp:1.1 cl-store/default-backend.lisp:1.2 --- cl-store/default-backend.lisp:1.1 Tue Aug 17 04:12:43 2004 +++ cl-store/default-backend.lisp Tue Aug 17 05:03:28 2004 @@ -113,7 +113,8 @@ ;; we can write it down byte by byte. Otherwise we treat it as ;; an array. (deftype simple-standard-string () - `(simple-array standard-char (*))) + #+clisp`(simple-vector standard-char) + #-clisp`(simple-array standard-char (*)))
(defun output-simple-standard-string (obj stream) (store-32-byte (length obj) stream)