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

[Sean Ross]

Update of /project/cl-store/cvsroot/cl-store
In directory common-lisp.net:/tmp/cvs-serv545

Modified Files:
	xml-backend.lisp default-backend.lisp 
Log Message:
fixes to clisp string storing.
fixed typo in adding methods for clisp.

Date: Tue Aug 17 08:11:30 2004
Author: sross

Index: cl-store/xml-backend.lisp
diff -u cl-store/xml-backend.lisp:1.1 cl-store/xml-backend.lisp:1.2
--- cl-store/xml-backend.lisp:1.1	Tue Aug 17 04:12:43 2004
+++ cl-store/xml-backend.lisp	Tue Aug 17 08:11:29 2004
@@ -345,7 +345,7 @@
   (ensure-class name :direct-slots slots
                 :direct-superclasses superclasses
                 :metaclass metaclass)
-  #+clisp(add-methods-for-class class slots))
+  #+clisp(add-methods-for-class name slots))
 
 (defun get-values (values)
   (loop for value in (xmls:node-children values)


Index: cl-store/default-backend.lisp
diff -u cl-store/default-backend.lisp:1.2 cl-store/default-backend.lisp:1.3
--- cl-store/default-backend.lisp:1.2	Tue Aug 17 05:03:28 2004
+++ cl-store/default-backend.lisp	Tue Aug 17 08:11:30 2004
@@ -113,8 +113,7 @@
 ;; we can write it down byte by byte. Otherwise we treat it as 
 ;; an array.
 (deftype simple-standard-string ()
-  #+clisp`(simple-vector standard-char)
-  #-clisp`(simple-array standard-char (*)))
+  `(simple-array standard-char (*)))
 
 (defun output-simple-standard-string (obj stream)
   (store-32-byte (length obj) stream)