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)