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

[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