cl-prevalence-devel

cl-prevalence-devel@common-lisp.net

50 discussions

[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