[cl-store-cvs] CVS update: cl-store/default-backend.lisp

[Sean Ross]

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)