- cl-prevalence-devel@common-lisp.net - mailman3.common-lisp.net

Re: [cl-prevalence-devel] Removal of managed prevalence object does not delete corresponding non-id indexes' entries and duplicate index values allowed
by Nico de Jager 18 Apr '07

18 Apr '07

On Wednesday 18 April 2007 13:45, Sven Van Caekenberghe wrote: > Nico, > > On 18 Apr 2007, at 11:33, Nico de Jager wrote: > > > When one deletes an object with tx-delete-object after creating an > > index on a slot (other than id) of a managed prevalence class, the > > corresponding index entry is not deleted. Because adding a new > > object with tx-create-object appears to update all the indexes on > > the class, one would expect tx-delete-object to also update the > > indexes accordingly. Is this a bug or the intended behaviour? > > The 'indexes on arbitrary slots' was contributed at one point. I do > think the implementation was quite clear and simple. > But you are right, this is a bug (or oversight): when deleting an > object, the index entries should be cleaned up. > > > Also, shouldn't tx-create-object (or tx-change-object-slots) signal > > a condition when the addition of an object or the change of a slot > > results in duplicate slot values for an indexed slot? > > Apart from indexes on keys (like ID), which are necessarily unique, > indexes on arbitrary slots could theoretically be unique or not (as > in SQL). The current implementation is using hashtables and is > overwriting entries: so there too, there is a bug (or oversight): > either we should enforce unique indexes by signalling errors, or we > should allow multiple objects with the same indexed slot value, but > then there should be a list as value there (and we have to manage all > that correctly, esp. wrt. deleting objects). > > What to you think ? How are you using this feature ? It would be really nice if INDEX-ON had an optional UNIQUE parameter that allows one to choose between either a unique or non-unique index. I would use both types. B.t.w. why is SLOTS an optional parameter in the definition of INDEX-ON? As it is the function would do nothing if SLOTS is not supplied: (defun index-on (system class &optional slots (test 'equalp)) "Create indexes on each of the slots provided." (dolist (slot slots) (execute-transaction (tx-create-objects-slot-index system class slot test)))) > > So, thanks for reporting this problem. Do you feel like trying to fix > this with a patch ? I would give it a try as soon as I can find the time. I am not an expert Lisper yet, so it will probably take me longer. But it will definitely be worth it, I have replaced all my CLSQL databases with cl-prevalence. > > Are there any other people on the list who would like to comment ? > > Sven > Thanks for your quick feedback. Nico

1 0

[cl-prevalence-devel] Removal of managed prevalence object does not delete corresponding non-id indexes' entries and duplicate index values allowed
by Nico de Jager 18 Apr '07

18 Apr '07

Hi When one deletes an object with tx-delete-object after creating an index on a slot (other than id) of a managed prevalence class, the corresponding index entry is not deleted. Because adding a new object with tx-create-object appears to update all the indexes on the class, one would expect tx-delete-object to also update the indexes accordingly. Is this a bug or the intended behaviour? Also, shouldn't tx-create-object (or tx-change-object-slots) signal a condition when the addition of an object or the change of a slot results in duplicate slot values for an indexed slot? Thanks. Nico

2 1

[cl-prevalence-devel] cl-prevalence speed issues
by Gabor Vitez 04 Apr '07

04 Apr '07

Hi, I just started to toy around with cl-prevalence; however I found strange speed issues: loading a database from transaction log is way faster than loading it from snapshot. I modified one of the test scripts from the cl-prevalence distribution: (require 'asdf) (require 'cl-prevalence) (in-package :cl-prevalence) (defclass numbers () ((numbers-list :accessor get-numbers-list :initform nil)) (:documentation "Object to hold our list of numbers")) (defun tx-create-numbers-root (system) "Transaction function to create a numbers instance as a root object" (setf (get-root-object system :numbers) (make-instance 'numbers))) (defun tx-add-number (system number) "Transaction function to add a number to the numbers list" (let ((numbers (get-root-object system :numbers))) (push number (get-numbers-list numbers)))) (defparameter *system-location* (pathname "/tmp/demo1-prevalence-system/") "Filesystem location of the prevalence system") (defvar *system* (time (make-prevalence-system *system-location*)) ) (execute *system* (make-transaction 'tx-create-numbers-root)) (time (dotimes (i 100000) (execute *system* (make-transaction 'tx-add-number i))) ) ;(time (snapshot *system*)) (close-open-streams *system*) I use this script to create a database; later to load it; then to snapshot it and load it again (uncommenting the appropriate parts between the runs). Creating and snapshotting is fast; however loading from snapshot is slow. Times: creating: 19.89 seconds loading from transaction log: 53.942 seconds < this is good snapshotting: 5.297 seconds loading from snapshot: 182.713 seconds < this is strange snapshotting again: 1.165 seconds Any ideas what this strangeness can be? Gabor

2 1

[cl-prevalence-devel] set-slot-values
by Nico de Jager 29 Mar '07

29 Mar '07

Hi The symbol SET-SLOT-VALUES is exported from the cl-prevalence package, but there is no such function. Grepping for the string "set-slot-values" shows the string only in the files src/package.lisp and doc/CL-PREVALENCE.html. I downloaded the cl-prevalence.tgz tarball from common-lisp.net today to make sure I have the latest version of the library. Has this function been dropped accidentally or was it deprecated and should it be removed from the documentation file and package.lisp or am I missing something? Thanks. Nico

2 1

[cl-prevalence-devel] Re: bug in cl-prevalence
by Sven Van Caekenberghe 16 Mar '07

16 Mar '07

On 15 Mar 2007, at 16:43, Phlex wrote: > Hello, > > I beleive I found a bug in your cl-prevalence package. It is in the > src/serialization.lisp file. > Here is what i think is the correct (serialize-sexp-internal hash- > table ? ?) method. > > (defmethod serialize-sexp-internal ((object hash-table) stream > serialization-state) > (let ((id (known-object-id serialization-state object))) > (if id > (progn > (write-string "(:REF . " stream) > (prin1 id stream) > (write-string ")" stream)) > (let ((count (hash-table-count object))) > (setf id (set-known-object serialization-state object)) > (write-string "(:HASH-TABLE " stream) > (prin1 id stream) > (write-string " :TEST " stream) > (print-symbol (hash-table-test object) stream) > (write-string " :SIZE " stream) > (prin1 (hash-table-size object) stream) > (write-string " :REHASH-SIZE " stream) > (prin1 (hash-table-rehash-size object) stream) > (write-string " :REHASH-THRESHOLD " stream) > (prin1 (hash-table-rehash-threshold object) stream) > (unless (zerop count) > (write-string " :ENTRIES (" stream) > (maphash #'(lambda (key value) > (write-string " (" stream) > (serialize-sexp-internal key stream > serialization-state) > (write-string " . " stream) > (serialize-sexp-internal value stream > serialization-state) > (princ ")" stream)) > object) > (write-string " )" stream)) ;;this line was added > (write-string " )" stream))))) ;;a closing parenthesis was > removed from the output string > > I hope this helps, and thanks for your work on this library. > > Sacha De Vos Thanks for noticing/reporting/fixing this bug, Sascha! I applied your change, committed it and re-released the tarball. Sven

1 0

[cl-prevalence-devel] [Fwd: pathnames]
by Aycan iRiCAN 26 Dec '06

26 Dec '06

-- Aycan iRiCAN C0R3 Computer Security Group http://people.core.gen.tr/~aycan.irican/

1 0

[cl-prevalence-devel] Re: Asdf-install cl-prevalence
by Sven Van Caekenberghe 09 Mar '06

09 Mar '06

Giles, On 08 Mar 2006, at 20:37, Giles Roberts wrote: > Dear Sven, > > I'm wondering if you could help me with your libraries. > > I'm trying unsuccessfully to asdf-install cl-prevalence. > > My OS is WinXP Pro sp 2. My compiler is LispWorks Personal Edition > 4.4.6. > > The command I'm using is: > > (asdf-install:install :cl-prevalence) > > Asdf seems to do the download and some of the compiling ok. When it > gets to compiling debug-prevalence.lisp, I get the following error > message: > > Compiling file > c:\lisp\asdf-install\site\cl-prevalence\src\debug-prevalence.lisp ... > ;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0 > ;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3 > ;;; Source level debugging is on > ;;; Source file recording is on > ;;; Cross referencing is on > ; (TOP-LEVEL-FORM 1) > ; (TOP-LEVEL-FORM 2) > > Error: S-XML:ECHO-XML does not exist at all. > 1 (continue) Create symbol. > 2 Try reading the next form. > 3 Try compiling > c:\lisp\asdf-install\site\cl-prevalence\src\debug-prevalence.lisp > again. > 4 Skip compiling > c:\lisp\asdf-install\site\cl-prevalence\src\debug-prevalence.lisp. > 5 Retry performing #<ASDF:COMPILE-OP NIL 219DBF44> on > #<ASDF:CL-SOURCE-FILE "debug-prevalence" 219818DC>. > 6 Continue, treating #<ASDF:COMPILE-OP NIL 219DBF44> > on > #<ASDF:CL-SOURCE-FILE "debug-prevalence" 219818DC> > as having been successful. > 7 Retry installation > 8 (abort) Return to level 0. > 9 Return to top loop level 0. > > Type :b for backtrace, :c <option number> to proceed, or :? for other > options > > This error message appears to be correct. When I check in > debug-prevalence.lisp there's a call to s-xml:echo-xml in the defun of > print-transaction-log. I think the package s-xml is defined by the > files in > > the asdf directory s-xml/src/. There is no reference to echo-xml in > these files. > > I've separately downloaded s-xml.tgz from commonlisp.net and asdf- > installed > that successfully from a local file. On downloading cl- > prevalence.tgz and > asdf-installing I get the same error message as above. > > Checking > http://common-lisp.net/project/cl-containers/asdf-status/website/ > output/ for > the status of these packages indicates both as installing > correctly. It > doesn't list LispWorks on Windows as one of the tested > installations. Is > there some incompatibility with my OS / compiler or am I doing > something > wrong? > > As I'm new to lisp I don't want to start hacking these files to fix > the > problem. Are there newer versions of either of these asdfs? If so, > how do I get them? I thought I fixed that problem - and I did, but only in CVS HEAD, not in the released tarball. I made a new release and tested ASDF-INSTALL and it seems fine now. Sorry for the inconvenience. Regards, Sven

1 0

[cl-prevalence-devel] Patch for serializing improper lists
by Henrik Hjelte 31 Jan '06

31 Jan '06

I have made some changes in s-serialization that allows improper-lists, for example cons-pairs and circular lists. They used to fail with a type-error. I have made the changes inside the method for sequences rather than an another method specialised on lists. That way a proper list is output as a sequence (which is prettier), and an improper list is output as a list of cons-pairs. Circular lists are handled by first making a fresh cons in the hash-table of deserialized objects, and then replacing its cdr with a reference to the first cons in the circular list, which is also stored in the hash-table. Some new simple tests have also been added. The source files are attached, and a diff against the latest version in CVS. I have only tested this on x86 SBCL, but it should work on all implementations. Best wishes, Henrik Hjelte

2 1

[cl-prevalence-devel] S-SYSDEPS
by Sven Van Caekenberghe 09 Jan '06

09 Jan '06

From now on, the local sydeps.lisp file is replace by a dependency on the more general S-SYSDEPS package ( http://homepage.mac.com/svc/s- sysdeps/ ). Only in CVS HEAD for now, if there are no objections, I will release this soon to the tarballs. Sven

1 0

[cl-prevalence-devel] Re: Kpax win32 patch
by Sven Van Caekenberghe 09 Jan '06

09 Jan '06

Marko, Thx for reporting this problem. I 'fixed' it by no longer loading debug-prevalence by default. The s-xml::echo-xml function (used here for pretty printing xml) is no longer loaded by default. Compilation/loading using LispWorks and SBCL is now OK. Sven On 26 Dec 2005, at 14:37, Marko Kocić wrote: > Another thing, since you are the author of both cl-prevalence and s- > xml. > I got cvs of s-xml from > :pserver:anonymous@common-lisp.net:/project/s-xml/cvsroot > and CVS of cl-prevalence from > :pserver:anonymous@common-lisp.net:/project/cl-prevalence/cvsroot > > When I try to load cl-prevalence I got: > ;; Compiling file C:\dev\cvstree\cl-prevalence\src\debug- > prevalence.lisp ... > *** - READ from > #<INPUT BUFFERED FILE-STREAM CHARACTER > #P"C:\\dev\\cvstree\\cl-prevalence\\src\\debug-prevalence.lisp" @19> > : #<PACKAGE S-XML> has no external symbol with name "ECHO-XML" > The following restarts are available: > RETRY :R1 Retry performing #<ASDF:COMPILE-OP NIL > #x19ECFD2D> on #<ASDF:CL-SOURCE-FILE "debug-prevalence" # > x19ECEFDD>. > ACCEPT :R2 Continue, treating #<ASDF:COMPILE-OP NIL > #x19ECFD2D> on #<ASDF:CL-SOURCE-FILE "debug-prevalence" > #x19ECEFDD> as having been successful. > ABORT :R3 ABORT > Break 1 CL-PREVALENCE[2]> > > I'm using clisp on windows. > > thanks, > Marko

2 2

[cl-prevalence-devel] problem with sbcl and cmucl
by Nicolas Lamirault 09 Aug '05

09 Aug '05

hi, i try to load cl-prevalence under sbcl and cmucl but i have some problems i put s-xml and cl-prevalence in asdf:*central-registry*, and load-op cl-prevalence the output error : ; compilation finished in 0:00:00 ; compiling file ; "/home/nicolas/src/cl-prevalence/src/managed-prevalence.lisp" ; (written 14 FEB 2005 09:20:02 PM): ; compiling (IN-PACKAGE :CL-PREVALENCE) ; compiling (DEFMACRO EXECUTE-TRANSACTION ...) ; compiling (DEFCLASS OBJECT-WITH-ID ...) ; compiling (DEFGENERIC GET-ID ...) ; compiling (DEFUN GET-OBJECTS-ROOT-NAME ...) ; compiling (DEFUN GET-OBJECTS-SLOT-INDEX-NAME ...) ; compiling (DEFGENERIC FIND-ALL-OBJECTS ...) ; compiling (DEFMETHOD FIND-ALL-OBJECTS ...) ; compiling (DEFGENERIC FIND-OBJECT-WITH-ID ...) ; compiling (DEFMETHOD FIND-OBJECT-WITH-ID ...) ; compiling (DEFGENERIC FIND-OBJECT-WITH-SLOT ...); ; caught ERROR: ; (during macroexpansion of (DEFGENERIC FIND-OBJECT-WITH-SLOT ...)) ; invalid (TEST #'EQUALP) ; in the generic function lambda list (SYSTEM CLASS ; SLOT ; VALUE ; &OPTIONAL ; (TEST #'EQUALP)) ; See also: ; The ANSI Standard, Section 3.4.2 ; compiling (DEFMETHOD FIND-OBJECT-WITH-SLOT ...) ; compiling (DEFUN TX-CREATE-OBJECTS-SLOT-INDEX ...) ; compiling (DEFUN TX-REMOVE-OBJECTS-SLOT-INDEX ...) ; compiling (DEFUN ADD-OBJECT-TO-SLOT-INDEX ...) ; compiling (DEFUN REMOVE-OBJECT-FROM-SLOT-INDEX ...) ; compiling (DEFUN INDEX-ON ...) ; compiling (DEFUN DROP-INDEX-ON ...) ; compiling (DEFUN SLOT-VALUE-CHANGED-P ...) ; compiling (DEFUN TX-CREATE-OBJECT ...) ; compiling (DEFUN TX-DELETE-OBJECT ...) ; compiling (DEFUN TX-CHANGE-OBJECT-SLOTS ...) ; compiling (DEFUN TX-CREATE-ID-COUNTER ...) ; compiling (DEFMETHOD NEXT-ID ...) ; compiling (DEFGENERIC GET-PREFERENCE ...) ; compiling (DEFMETHOD GET-PREFERENCE ...) ; compiling (DEFUN TX-SET-PREFERENCE ...) ; compiling (DEFGENERIC ALL-PREFERENCES-KEYS ...) ; compiling (DEFMETHOD ALL-PREFERENCES-KEYS ...) ; /home/nicolas/src/cl-prevalence/src/managed-prevalence.fasl written ; compilation finished in 0:00:00 WARNING: COMPILE-FILE warned while performing #<COMPILE-OP NIL {9C2FCB9}> on #<CL-SOURCE-FILE "managed-prevalence" {9C30119}>. debugger invoked on a ASDF:COMPILE-FAILED in thread 13489: erred while invoking #<COMPILE-OP NIL {9C2FCB9}> on #<CL-SOURCE-FILE "managed-prevalence" {9C30119}> Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [RETRY ] Retry performing #<ASDF:COMPILE-OP NIL {9C2FCB9}> on #<ASDF:CL-SOURCE-FILE "managed-prevalence" {9C30119}>. 1: [ACCEPT] Continue, treating #<ASDF:COMPILE-OP NIL {9C2FCB9}> on #<ASDF:CL-SOURCE-FILE "managed-prevalence" {9C30119}> as having been successful. 2: [ABORT ] Exit debugger, returning to top level. ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE)) #<unavailable argument> #<unavailable argument> #<ASDF:COMPILE-OP NIL {9C2FCB9}> #<ASDF:CL-SOURCE-FILE "managed-prevalence" {9C30119}>) 0] so problems comes from this function : (defgeneric find-object-with-slot (system class slot value &optional test) (:documentation "Find and return the object in system of class with slot equal to value, null if not found")) (defmethod find-object-with-slot ((system prevalence-system) class slot value &optional (test #'equalp)) "Find and return the object in system of class with slot equal to value, null if not found" (let* ((index-name (get-objects-slot-index-name class slot)) (index (get-root-object system index-name))) (if index (find-object-with-id system class (gethash value index)) (find value (find-all-objects system class) :key #'(lambda (object) (slot-value object slot)) :test test)))) by changing the defgeneric method in : (defgeneric find-object-with-slot (system class slot value &optional test) (:documentation "Find and return the object in system of class with slot equal to value, null if not found")) problems is solved after this there is no problems when i load-op cl-prevalence in SLIME But in a unix shell : ; /home/nicolas/src/cl-prevalence/src/debug-prevalence.fasl written ; compilation finished in 0:00:00 ; compiling file ; "/home/nicolas/src/cl-prevalence/src/managed-prevalence.lisp" ; (written 09 AUG 2005 11:10:13 AM): ; compiling (IN-PACKAGE :CL-PREVALENCE) ; compiling (DEFMACRO EXECUTE-TRANSACTION ...) ; compiling (DEFCLASS OBJECT-WITH-ID ...) ; compiling (DEFGENERIC GET-ID ...) ; compiling (DEFUN GET-OBJECTS-ROOT-NAME ...) ; compiling (DEFUN GET-OBJECTS-SLOT-INDEX-NAME ...) ; compiling (DEFGENERIC FIND-ALL-OBJECTS ...) ; compiling (DEFMETHOD FIND-ALL-OBJECTS ...) ; compiling (DEFGENERIC FIND-OBJECT-WITH-ID ...) ; compiling (DEFMETHOD FIND-OBJECT-WITH-ID ...) ; compiling (DEFGENERIC FIND-OBJECT-WITH-SLOT ...) ; compiling (DEFMETHOD FIND-OBJECT-WITH-SLOT ...) ; compiling (DEFUN TX-CREATE-OBJECTS-SLOT-INDEX ...) ; compiling (DEFUN TX-REMOVE-OBJECTS-SLOT-INDEX ...) ; compiling (DEFUN ADD-OBJECT-TO-SLOT-INDEX ...) ; compiling (DEFUN REMOVE-OBJECT-FROM-SLOT-INDEX ...) ; compiling (DEFUN INDEX-ON ...) ; compiling (DEFUN DROP-INDEX-ON ...) ; compiling (DEFUN SLOT-VALUE-CHANGED-P ...) ; compiling (DEFUN TX-CREATE-OBJECT ...) ; compiling (DEFUN TX-DELETE-OBJECT ...) ; compiling (DEFUN TX-CHANGE-OBJECT-SLOTS ...) ; compiling (DEFUN TX-CREATE-ID-COUNTER ...) ; compiling (DEFMETHOD NEXT-ID ...) ; compiling (DEFGENERIC GET-PREFERENCE ...) ; compiling (DEFMETHOD GET-PREFERENCE ...) ; compiling (DEFUN TX-SET-PREFERENCE ...) ; compiling (DEFGENERIC ALL-PREFERENCES-KEYS ...) ; compiling (DEFMETHOD ALL-PREFERENCES-KEYS ...) ; /home/nicolas/src/cl-prevalence/src/managed-prevalence.fasl written ; compilation finished in 0:00:01 ; compiling file "/home/nicolas/src/cl-prevalence/src/sysdeps.lisp" ; (written 28 JUN 2004 01:54:49 PM): ; compiling (IN-PACKAGE :CL-PREVALENCE)compilation aborted because of ; fatal error: READ failure in COMPILE-FILE: READER-ERROR at 924 (line ; 26, column 69) on #<SB-SYS:FD-STREAM for "file ; \"/home/nicolas/src/cl-prevalence/src/sysdeps.lisp\"" {95B6A41}>: package "SB-BSD-SOCKETS" not found ; /home/nicolas/src/cl-prevalence/src/sysdeps.fasl written ; compilation finished in 0:00:00 WARNING: COMPILE-FILE warned while performing #<COMPILE-OP NIL {9C2FD39}> on #<CL-SOURCE-FILE "sysdeps" {918FDB9}>. debugger invoked on a ASDF:COMPILE-FAILED in thread 17853: erred while invoking #<COMPILE-OP NIL {9C2FD39}> on #<CL-SOURCE-FILE "sysdeps" {918FDB9}> Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [RETRY ] Retry performing #<ASDF:COMPILE-OP NIL {9C2FD39}> on #<ASDF:CL-SOURCE-FILE "sysdeps" {918FDB9}>. 1: [ACCEPT] Continue, treating #<ASDF:COMPILE-OP NIL {9C2FD39}> on #<ASDF:CL-SOURCE-FILE "sysdeps" {918FDB9}> as having been successful. 2: [ABORT ] Exit debugger, returning to top level. ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE)) #<unavailable argument> #<unavailable argument> #<ASDF:COMPILE-OP NIL {9C2FD39}> #<ASDF:CL-SOURCE-FILE "sysdeps" {918FDB9}>) 0] add dependencies about sb-bsd-sockets in asd file resolved the problems : :depends-on (:sb-bsd-sockets :s-xml)) i have this problem only under SBCL so perhaps, add #+sbcl in ASD file ... i don't know ... -- Nicolas Lamirault

1 0

[cl-prevalence-devel] cl-prevalence on clisp
by Tomas Zellerin 05 May '05

05 May '05

Hello, I tried yesterday to run cl-prevalence on recent clisp. I found that following does not work: - serialization of classes, the reason being that serializable-slots for standard objects has no #+clisp section. I was able to overcome this particular problem, can make and send patch, if clisp is also considered as target for this package - serialization of pathnames. I could make plausibly looking serialization code, but did not get how to handle de-serialization. Is the latter problem of clisp only? Is it supposed to work? With regards, Tomas Zellerin

2 2

[cl-prevalence-devel] SBCL s-serialization
by Peter Scott 21 Jan '05

21 Jan '05

Attached to this message is a patch for serialization.lisp which makes it work on SBCL. The only difference from the CMUCL-specific MOP code is that SBCL has, for some reason, renamed the PCL package to SB-PCL. For your inspection (and in case attachments don't play well with this mailing list): --- serialization.lisp.old 2005-01-20 13:17:35.000000000 -0700 +++ serialization.lisp 2005-01-20 13:12:52.000000000 -0700 @@ -112,6 +112,8 @@ (mapcar #'car (if (symbolp (caar slots)) slots (cdr slots)))) #+cmu (mapcar #'pcl:slot-definition-name (pcl:class-slots (class-of object))) + #+sbcl + (mapcar #'sb-pcl:slot-definition-name (sb-pcl:class-slots (class-of object))) #+lispworks (structure:structure-class-slot-names (class-of object)) #+allegro @@ -125,6 +127,8 @@ (class-of object))) #+cmu (mapcar #'pcl:slot-definition-name (pcl:class-slots (class-of object))) + #+sbcl + (mapcar #'sb-pcl:slot-definition-name (sb-pcl:class-slots (class-of object))) #+lispworks (mapcar #'hcl:slot-definition-name (hcl:class-slots (class-of object))) #+allegro -Peter

2 1

[cl-prevalence-devel] Re: s-expressions in cl-prevalence
by Sven Van Caekenberghe 02 Jan '05

02 Jan '05

On 02 Jan 2005, at 01:23, Ian Eslick wrote: > I made enhancements to the sexp support in cl-prevalence. What's the > best way > to forward them to you? I annotated changed files in the changed code > in one file > but don't have a clean patch for you. > > Ian And a Happy New Year to you too, Ian ;-) Seriously, if you do not have a clean patch/diff, an annotated list of changes will do to. If I don't understand something, I will ask. Looking forward to your changes. Thx, Sven

1 0

[cl-prevalence-devel] Re: cl-prevalence bug and patch
by Sven Van Caekenberghe 08 Dec '04

08 Dec '04

James, Thanks for the feedback. Here is a first reaction, without looking at your code. On 27 Nov 2004, at 03:58, James Wright wrote: > The first bug is pretty minor: An attempt to serialize a > standard-object will fail if any of its slots are unbound. This is probably fixed in the CVS version (among other things) - have a look at the mailing list(s). > The second bug is somewhat mystifying. Attempting to serialize an > object that points to another object that points ... to another object > that points to nothing will fail with a stack overflow if the length > of the "chain" is any longer than about 1300. I'm using Lispworks > with a stack size of 64000. I never tried chains that long. But yes there might be a problem here: the serializer tracks every object it encounters, and is itself a recursive process. Although 1300 doesn't seem that large a number. I am using LW myself, and sometimes you have to expand the stack a couple of times for very recursive code to succeed. I will have a look at your example later on. Sven

1 1

[cl-prevalence-devel] compile problem with sbcl
by Bruce Butterfield 18 Nov '04

18 Nov '04

From today's CVS snapshot of cl-prevalence in SBCL 0.8.16: * (require 'cl-prevalence) ; loading system definition from #P"/home/bab/.sbcl/systems/s-xml.asd" into ; #<PACKAGE "ASDF3835"> ; registering #<SYSTEM :S-XML {93D1AB1}> as S-XML debugger invoked on a SB-INT:COMPILED-PROGRAM-ERROR in thread 14043: Execution of a form compiled with errors. Form: (DEFGENERIC FIND-OBJECT-WITH-SLOT (SYSTEM CLASS SLOT VALUE &OPTIONAL (TEST #'EQUALP)) (DOCUMENTATION Find and return the object in system of class with slot equal to value, null if not found)) Compile-time-error: (during macroexpansion of (DEFGENERIC FIND-OBJECT-WITH-SLOT ...)) invalid (TEST #'EQUALP) in the generic function lambda list (SYSTEM CLASS SLOT VALUE &OPTIONAL (TEST #'EQUALP)) See also: The ANSI Standard, Section 3.4.2

1 0

[cl-prevalence-devel] Indexes
by Sven Van Caekenberghe 05 Oct '04

05 Oct '04

Hi All, Randall Randall contributed some code to add indexes to managed-prevalence, today I merge his code in CVS head (not yet in the release tarball) Exported functions: index-on drop-index-on find-object-with-slot Comments: The ideas and most code comes from Randall, I added code to drop indexes, added code to add existing objects to newly created indexes, added a fallback for find-object-with-slot in case there is no index, changed the code that checked for unchanged slots so that it conses less. Todo: Since indexing was added to improve performance, I think current the generation of root and index names done each time we access a root or index is too slow (especially conses too much). I have a new scheme of root naming that I am thinking about that might solve this problem. It might also allow for iteration over all current indexes of a class which could be usefull when deleting objects, and might bring back the index->object association instead of the current index->id association which is currently adding another indirection. Sven

1 0

[cl-prevalence-devel] Patches to serialization
by Sven Van Caekenberghe 04 Oct '04

04 Oct '04

Hi all, The following patches were applied to serialization in CVS (not yet the release): 1 bugfix: serialization of an empty string is <string></string> but deserialization of that XML construct was NIL which is not a string we now return an empty string in that case thanks to randall randall 2 added serializable-slots implementation for sbcl thanks to Anthony W. Juckel 3 added code to deal with unbound slots when serializing (noted by anthony juckel) and code to deal with missing slots when deserializing 4 added reset-class-slots 5 now testing xml and sexp serialization seperately, added empty string test thanks to randall randall Sven

1 0

[cl-prevalence-devel] Patch to serialization.lisp for sbcl
by Anthony Juckel 02 Oct '04

02 Oct '04

I was having some problems getting objects to properly serialize when using cl-prevalence, until I found that there was no implementation of serializable-slots for sbcl. This patch contains such an implementation. Also, I've modified it somewhat from the formula followed by the other lisps. Rather than simply returning all slots for the object, I only return those slots which are currently bound for the object. I leave it up to you to decide whether this is a useful addition or not. Anthony W. Juckel

2 1

[cl-prevalence-devel] problems with restoration (long)
by Randall Randall 27 Sep '04

27 Sep '04

So, I've been using cl-prevalence, and like it, mostly. :) I have 3 systems active in my application (with at least 2 more expected before it will be completely converted). Two of them restore correctly. One reliably does not, and while the fact that two work okay suggests that the problem is in my code, I can't find one. When I change prevailed objects, they seem to update in the log. However, deeply nested objects seem not to be restored correctly. The classes involved are: (defclass page (object-with-id) ((name :initarg :name :initform "" :accessor name) (title :initarg :title :initform () :accessor title)) (:documentation "")) (defclass xhtml-page (page) ((xhtml :initarg :xhtml :initform () :accessor xhtml))) (defclass classroom (object-with-id) ((cover :initarg :cover :initform "" :accessor cover) (toc :initarg :toc :initform () :accessor toc) (pages :initarg :pages :initform (make-hash-table :test 'equal) :accessor pages)) (:documentation "")) (defclass course (accessible) ((name :initarg :name :initform "" :accessor name) ; used as a human-readable id (title :initarg :title :initform "" :accessor title) ; shown to users as the title of the course (classroom :initarg :classroom :initform () :accessor classroom) (menu :initarg :menu :initform () :accessor menu)) (:documentation "")) The "accessible" class just has some permissions control, which works okay; I'm sure it's not essential to this problem. When I create a course, giving it a classroom, with a single xhtml-page in the pages hash, this is the XML output: <OBJECT ID="1" CLASS="CL-PREVALENCE::TRANSACTION"><SLOT NAME="CL-PREVALENCE::ARGS"><NULL/></SLOT><SLOT NAME="CL:FUNCTION"><SYMBOL>CL-PREVALENCE::TX-CREATE-ID-COUNTER</ SYMBOL></SLOT></OBJECT> <OBJECT ID="1" CLASS="CL-PREVALENCE::TRANSACTION"><SLOT NAME="CL-PREVALENCE::ARGS"><SEQUENCE ID="2" CLASS="CL:LIST" SIZE="3"><SYMBOL>COM.RANDALLSQUARED.COOL::COURSE</SYMBOL><SYMBOL>CL- PREVALENCE::NAME</SYMBOL><SYMBOL>CL:EQUALP</SYMBOL></SEQUENCE></ SLOT><SLOT NAME="CL:FUNCTION"><SYMBOL>CL-PREVALENCE::TX-CREATE-OBJECTS-S LOT-INDEX</SYMBOL></SLOT></OBJECT> <OBJECT ID="1" CLASS="CL-PREVALENCE::TRANSACTION"><SLOT NAME="CL-PREVALENCE::ARGS"><SEQUENCE ID="2" CLASS="CL:LIST" SIZE="2"><SYMBOL>COM.RANDALLSQUARED.COOL::XHTML-PAGE</SYMBOL><SEQUENCE ID="3" CLASS="CL:LIST" SIZE="2"><SEQUENCE ID="4" CLASS="CL:LIST" SIZE="2"><SYMBOL>COM.RANDALLSQUARED.COOL::TITLE</SYMBOL><SEQUENCE ID ="5" CLASS="CL:LIST" SIZE="1"><STRING>default-page-title</STRING></SEQUENCE></ SEQUENCE><SEQUENCE ID="6" CLASS="CL:LIST" SIZE="2"><SYMBOL>COM.RANDALLSQUARED.COOL::XHTML</SYMBOL><SEQUENCE ID="7" CLASS="CL:LIST" SIZE="1"><STRING>default-page-content</STRING></SEQUENCE></SEQUENCE></ SEQUENCE></SEQUENCE></SLOT><SLOT NAME="CL :FUNCTION"><SYMBOL>CL-PREVALENCE::TX-CREATE-OBJECT</SYMBOL></SLOT></ OBJECT> <OBJECT ID="1" CLASS="CL-PREVALENCE::TRANSACTION"><SLOT NAME="CL-PREVALENCE::ARGS"><SEQUENCE ID="2" CLASS="CL:LIST" SIZE="1"><SYMBOL>COM.RANDALLSQUARED.COOL::CLASSROOM</SYMBOL></ SEQUENCE></SLOT><SLOT NAME="CL:FUNCTION"><SYMBOL>CL-PREVALENCE::TX-CREATE-OBJECT</SYMBOL></ SLOT></OBJECT> <OBJECT ID="1" CLASS="CL-PREVALENCE::TRANSACTION"><SLOT NAME="CL-PREVALENCE::ARGS"><SEQUENCE ID="2" CLASS="CL:LIST" SIZE="2"><SYMBOL>COM.RANDALLSQUARED.COOL::COURSE</SYMBOL><SEQUENCE ID="3" CLASS="CL:LIST" SIZE="3"><SEQUENCE ID="4" CLASS="CL:LIST" SIZE="2"><SYMBOL>COM.RANDALLSQUARED.COOL::CLASSROOM</SYMBOL><OBJECT ID="5" CLASS="COM.RANDALLSQUARED.COOL::CLASSROOM"><SLOT NAME="CL-PREVALENCE::ID"><INT>2</INT></SLOT><SLOT NAME="COM.RANDALLSQUARED.COOL::COVER"><STRING></STRING></SLOT><SLOT NAME="COM.RANDALLSQUARED.COOL::TOC"><NULL/></SLOT><SLOT NAME="COM.RANDALLSQUARED.COOL::PAGES"><HASH-TABLE ID="6" TEST="CL:EQUAL" SIZE="65"><ENTRY><KEY><STRING></STRING></KEY><VALUE><SEQUENCE ID="7" CLASS="CL:LIST" SIZE="1"><OBJECT ID="8" CLASS="COM.RANDALLSQUARED.COOL::XHTML-PAGE"><SLOT NAME="CL-PREVALENCE::ID"><INT>1</INT></SLOT><SLOT NAME="CL-PREVALENCE::NAME"><STRING></STRING></SLOT><SLOT NAME="COM.RANDALLSQUARED.COOL::TITLE"><SEQUENCE ID="9" CLASS="CL:LIST" SIZE="1"><STRING>default-page-title</STRING></SEQUENCE></SLOT><SLOT NAME="COM.RANDALLSQUARED.COOL::XHTML"><SEQUENCE ID="10" CLASS="CL:LIST" SIZE="1"><STRING>default-page-content</STRING></SEQUENCE></SLOT></ OBJECT></SEQUENCE></VALUE></ENTRY></HASH-TABLE></SLOT></OBJECT></ SEQUENCE><SEQUENCE ID="11" CLASS="CL:LIST" SIZE="2"><SYMBOL>COM.RANDALLSQUARED.PSIUSER::HANDLES</SYMBOL><SEQUENCE ID="12" CLASS="CL:LIST" SIZE="2"><INT>78</INT><INT>75</INT></SEQUENCE></SEQUENCE><SEQUENCE ID="13" CLASS="CL:LIST" SIZE="2"><SYMBOL>CL-PREVALENCE::NAME</SYMBOL><STRING>course</STRING></ SEQUENCE></SEQUENCE></SEQUENCE></SLOT><SLOT NAME="CL:FUNCTION"><SYMBOL>CL- PREVALENCE::TX-CREATE-OBJECT</SYMBOL></SLOT></OBJECT> So far, so good, I think. In case it's not clear from the above (it isn't to me), the course has id 3, the classroom id 2, and the xhtml-page id 1, since the default contents get created just before they're passed to tx-create-object in managed-prevalence.lisp. But upon restarting the system, while all the id integers are correct, the xhtml-page isn't attached to the pages hash anymore: * (find-courses) ; a standin for (find-all-objects *system* 'course) (#<COURSE {49115E15}>) T * (get-id (car (find-courses))) 3 * (get-id (classroom (car (find-courses)))) 2 * (pages (classroom (car (find-courses)))) #<EQUAL hash table, 1 entry {491146FD}> * (gethash "" (pages (classroom (car (find-courses))))) NIL NIL * (find-object-with-id *system* 'xhtml-page 1) #<XHTML-PAGE {49110995}> T So, the obvious question is, how come the hash doesn't get it's xhtml-page back? -- Randall Randall <randall(a)randallsquared.com> "And no practical definition of freedom would be complete without the freedom to take the consequences. Indeed, it is the freedom upon which all the others are based." - Terry Pratchett, _Going Postal_

1 0

[cl-prevalence-devel] Fwd: Another simple question
by Randall Randall 20 Sep '04

20 Sep '04

I wrote: > In looking through managed-prevalence.lisp, it > appears that the "unique" id counter isn't saved > in the transaction log. Is this an oversight, > or a feature I don't understand? :) The latter, it would appear, since next-id is only called from inside a transaction. My apologies for the noise. -- Randall Randall <randall(a)randallsquared.com> Property law should use #'EQ , not #'EQUAL .

2 1

[cl-prevalence-devel] Another simple question
by Randall Randall 19 Sep '04

19 Sep '04

In looking through managed-prevalence.lisp, it appears that the "unique" id counter isn't saved in the transaction log. Is this an oversight, or a feature I don't understand? :) The relevant section is copied in below: (defun tx-create-id-counter (system) "Initialize the id counter to 0" (setf (get-root-object system :id-counter) 0)) (defmethod next-id ((system prevalence-system)) "Increment and return the next id" (incf (get-root-object system :id-counter))) -- Randall Randall <randall(a)randallsquared.com> Property law should use #'EQ , not #'EQUAL .

1 0

Re: [cl-prevalence-devel] Using strings as root keys?
by Randall Randall 17 Sep '04

17 Sep '04

On Sep 17, 2004, at 2:30 PM, Sven Van Caekenberghe wrote: > Why would you want to use a string instead of a symbol ? Possibly because I didn't understand that the root objects are supposed to be containers for most of the actual data structures, rather than those data structures directly. I actually don't see any need for that now. I should have read more source before asking questions. :) Thanks! -- Randall Randall <randall(a)randallsquared.com> Property law should use #'EQ , not #'EQUAL .

1 0

[cl-prevalence-devel] Using strings as root keys?
by Randall Randall 17 Sep '04

17 Sep '04

Hi, all. I'm just starting to play with cl-prevalence. Is there any reason (besides performance, which I know would suffer with EQUAL or EQUALP) why the root-objects hash in a system is EQ? -- Randall Randall <randall(a)randallsquared.com> 'I say we put up a huge sign next to the Sun that says "You must be at least this big (insert huge red line) to ride this ride".' -- tghdrdeath(a)hotmail.com

2 1

[cl-prevalence-devel] snapshot and backup
by Eric Blood 13 Jul '04

13 Jul '04

Attached are the diffs to make snapshot and backup work. They were calling get-snapshot-filename with the timetag instead of the system, which was throwing a method-not-found error. -- eblood

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

cl-prevalence-devel