From ieslick at common-lisp.net Fri Jun 1 16:38:22 2007 From: ieslick at common-lisp.net (ieslick) Date: Fri, 1 Jun 2007 12:38:22 -0400 (EDT) Subject: [elephant-cvs] CVS elephant/doc Message-ID: <20070601163822.A1B431D208@common-lisp.net> Update of /project/elephant/cvsroot/elephant/doc In directory clnet:/tmp/cvs-serv15969 Modified Files: tutorial.texinfo Log Message: Fix wrong function name in tutorial --- /project/elephant/cvsroot/elephant/doc/tutorial.texinfo 2007/04/28 02:31:11 1.20 +++ /project/elephant/cvsroot/elephant/doc/tutorial.texinfo 2007/06/01 16:38:22 1.21 @@ -791,31 +791,31 @@ by range, use the :start and :end arguments. @lisp -(map-class-index #'print-friend 'friend 'name :value "Carlos") +(map-inverted-index #'print-friend 'friend 'name :value "Carlos") name: Carlos birthdate: (1 1 1972) => NIL -(map-class-index #'print-friend 'friend 'name +(map-inverted-index #'print-friend 'friend 'name :start "Adam" :end "Devin") name: Adriana birthdate: (24 4 1980) name: Carlos birthdate: (1 1 1972) => NIL -(map-class-index #'print-friend 'friend 'birthday +(map-inverted-index #'print-friend 'friend 'birthday :start (encode-date '(1 1 1974)) :end (encode-date '(31 12 1984))) name: Zaid birthdate: (14 8 1976) name: Adriana birthdate: (24 4 1980) => NIL -(map-class-index #'print-friend 'friend 'birthday +(map-inverted-index #'print-friend 'friend 'birthday :start nil :end (encode-date '(10 10 1978))) name: Carlos birthdate: (1 1 1972) name: Zaid birthdate: (14 8 1976) => NIL -(map-class-index #'print-friend 'friend 'birthday +(map-inverted-index #'print-friend 'friend 'birthday :start (encode-date '(10 10 1975)) :end nil) name: Zaid birthdate: (14 8 1976) From rread at common-lisp.net Mon Jun 4 19:43:18 2007 From: rread at common-lisp.net (rread) Date: Mon, 4 Jun 2007 15:43:18 -0400 (EDT) Subject: [elephant-cvs] CVS elephant/tests Message-ID: <20070604194318.2D7A2340AC@common-lisp.net> Update of /project/elephant/cvsroot/elephant/tests In directory clnet:/tmp/cvs-serv11529 Modified Files: testserializer.lisp Log Message: New test case based on unicode serialization bug --- /project/elephant/cvsroot/elephant/tests/testserializer.lisp 2007/04/21 17:23:02 1.21 +++ /project/elephant/cvsroot/elephant/tests/testserializer.lisp 2007/06/04 19:43:17 1.22 @@ -399,6 +399,16 @@ (deep-equalp b b))) t t t t t t t) +(defclass spud () + ((msgid :type 'list :initform "" :accessor :msgd :initarg :msgid) + (value :type '(or list string) :initform "" :accessor :vl :initarg :value))) + +(deftest test-serialization-unicode-slot + (let ((s (make-instance 'CL-USER::Message :msgid '(a b c) :value "Mesa??o Teksto"))) + (in-out-equal s) + ) +) + (defun in-out-deep-equalp (var) (assert *store-controller*) (with-buffer-streams (out-buf) From rread at common-lisp.net Mon Jun 4 20:02:17 2007 From: rread at common-lisp.net (rread) Date: Mon, 4 Jun 2007 16:02:17 -0400 (EDT) Subject: [elephant-cvs] CVS elephant/tests Message-ID: <20070604200217.B7F4F4E058@common-lisp.net> Update of /project/elephant/cvsroot/elephant/tests In directory clnet:/tmp/cvs-serv15491 Modified Files: testserializer.lisp Log Message: Correcting cut-and-paste error --- /project/elephant/cvsroot/elephant/tests/testserializer.lisp 2007/06/04 19:43:17 1.22 +++ /project/elephant/cvsroot/elephant/tests/testserializer.lisp 2007/06/04 20:02:16 1.23 @@ -404,7 +404,7 @@ (value :type '(or list string) :initform "" :accessor :vl :initarg :value))) (deftest test-serialization-unicode-slot - (let ((s (make-instance 'CL-USER::Message :msgid '(a b c) :value "Mesa??o Teksto"))) + (let ((s (make-instance 'spud :msgid '(a b c) :value "Mesa??o Teksto"))) (in-out-equal s) ) ) From ieslick at common-lisp.net Mon Jun 4 20:25:16 2007 From: ieslick at common-lisp.net (ieslick) Date: Mon, 4 Jun 2007 16:25:16 -0400 (EDT) Subject: [elephant-cvs] CVS elephant/tests Message-ID: <20070604202516.939F97083@common-lisp.net> Update of /project/elephant/cvsroot/elephant/tests In directory clnet:/tmp/cvs-serv21637/tests Modified Files: testserializer.lisp Log Message: Fix to new test --- /project/elephant/cvsroot/elephant/tests/testserializer.lisp 2007/06/04 20:02:16 1.23 +++ /project/elephant/cvsroot/elephant/tests/testserializer.lisp 2007/06/04 20:25:15 1.24 @@ -400,14 +400,14 @@ t t t t t t t) (defclass spud () - ((msgid :type 'list :initform "" :accessor :msgd :initarg :msgid) - (value :type '(or list string) :initform "" :accessor :vl :initarg :value))) + ((msgid :type list :initform "" :accessor :msgd :initarg :msgid) + (value :type (or list string) :initform "" :accessor :vl :initarg :value))) (deftest test-serialization-unicode-slot (let ((s (make-instance 'spud :msgid '(a b c) :value "Mesa??o Teksto"))) - (in-out-equal s) + (in-out-deep-equalp s) ) -) + t) (defun in-out-deep-equalp (var) (assert *store-controller*) From ieslick at common-lisp.net Mon Jun 4 21:14:05 2007 From: ieslick at common-lisp.net (ieslick) Date: Mon, 4 Jun 2007 17:14:05 -0400 (EDT) Subject: [elephant-cvs] CVS elephant/src/elephant Message-ID: <20070604211405.9DE361139@common-lisp.net> Update of /project/elephant/cvsroot/elephant/src/elephant In directory clnet:/tmp/cvs-serv31612/src/elephant Modified Files: unicode2.lisp Log Message: Bug fix for utf16/32 unicode serialization --- /project/elephant/cvsroot/elephant/src/elephant/unicode2.lisp 2007/04/29 02:10:55 1.9 +++ /project/elephant/cvsroot/elephant/src/elephant/unicode2.lisp 2007/06/04 21:14:04 1.10 @@ -244,7 +244,7 @@ (setf code (dpb (next-byte 1) (byte 8 0) code)) (setf (schar string i) (code-char code))) (incf (elephant-memutil::buffer-stream-position bstream) - (+ pos (* length 2)))) + (* length 2))) (the simple-string string))) (defmethod deserialize-string ((type (eql :utf32le)) bstream &optional temp-string) @@ -266,7 +266,7 @@ (setf code (dpb (next-byte 3) (byte 8 0) code)) (setf (char string i) (code-char code))) (incf (elephant-memutil::buffer-stream-position bstream) - (+ pos (* length 4))) + (* length 4)) (the simple-string string)))) From ieslick at common-lisp.net Tue Jun 12 14:17:45 2007 From: ieslick at common-lisp.net (ieslick) Date: Tue, 12 Jun 2007 10:17:45 -0400 (EDT) Subject: [elephant-cvs] CVS elephant/src/elephant Message-ID: <20070612141745.B89371136@common-lisp.net> Update of /project/elephant/cvsroot/elephant/src/elephant In directory clnet:/tmp/cvs-serv2975 Modified Files: pset.lisp Log Message: Patch fix for non-persistent pset --- /project/elephant/cvsroot/elephant/src/elephant/pset.lisp 2007/04/25 02:28:02 1.3 +++ /project/elephant/cvsroot/elephant/src/elephant/pset.lisp 2007/06/12 14:17:45 1.4 @@ -31,7 +31,7 @@ ;; Public API ;; -(defclass pset (persistent-collection) () +(defpclass pset (persistent-collection) () (:documentation "An unordered persistent collection of unique elements according to serializer equal comparison")) @@ -72,7 +72,7 @@ (defmethod build-pset ((sc store-controller)) "Default pset method; override if backend has better policy" (let ((btree (make-btree sc))) - (make-instance 'default-pset :btree btree :sc sc :from-oid (oid btree)))) + (make-instance 'default-pset :btree btree :sc sc))) (defun make-pset (&key items pset (sc *store-controller*)) (let ((new-pset (build-pset sc))) From ieslick at common-lisp.net Tue Jun 26 15:27:51 2007 From: ieslick at common-lisp.net (ieslick) Date: Tue, 26 Jun 2007 11:27:51 -0400 (EDT) Subject: [elephant-cvs] CVS elephant/src/elephant Message-ID: <20070626152751.1B64150B9@common-lisp.net> Update of /project/elephant/cvsroot/elephant/src/elephant In directory clnet:/tmp/cvs-serv29972/src/elephant Modified Files: pset.lisp Log Message: Small fix to metaclass issues in pset --- /project/elephant/cvsroot/elephant/src/elephant/pset.lisp 2007/06/12 14:17:45 1.4 +++ /project/elephant/cvsroot/elephant/src/elephant/pset.lisp 2007/06/26 15:27:50 1.5 @@ -31,7 +31,7 @@ ;; Public API ;; -(defpclass pset (persistent-collection) () +(defclass pset () () (:documentation "An unordered persistent collection of unique elements according to serializer equal comparison")) @@ -72,7 +72,7 @@ (defmethod build-pset ((sc store-controller)) "Default pset method; override if backend has better policy" (let ((btree (make-btree sc))) - (make-instance 'default-pset :btree btree :sc sc))) + (make-instance 'default-pset :btree btree))) (defun make-pset (&key items pset (sc *store-controller*)) (let ((new-pset (build-pset sc)))