[elephant-devel] Problem loading latest CVS version on SBCL MacBook Intel

[lists at infoway.net]

I just realized that what I "corrected" was not necessarily a typo. At this point, simply ignore my "fix", however, if anyone could shed some light as to why it's breaking I would appreciate it. I will try to debug it myself as well.

Thanks,
Daniel

On Mon, May 7, 2007 2:28 pm, lists at infoway.net said:

> I just downloaded the latest CVS version and elephant is not loading properly.
> 
> The error message I get is:
> 
> (defun pprev-dup-hack (cur key)
>   "
> ; compiling GO
> ; compiling BACK
> ; compiling ONE
> ; compiling STEP
> ; compiling IN
> ; compiling A
> ; compiling DUPLICATE
> ; compiling SET; compilation aborted because of fatal error:
>                ;   READ failure in COMPILE-FILE:
>                ;     READER-ERROR at 19745 (line 559, column 39) on
> #<SB-SYS:FD-STREAM for "file
> /Users/dev/lisp/elephant/src/elephant/collections.lisp"
> {1239E0D9}>:
>                ; comma not inside a backquote
> 
> ; /Users/dev/lisp/elephant/src/elephant/collections.fasl written
> ; compilation finished in 0:00:00
> WARNING:
>    COMPILE-FILE warned while performing #<COMPILE-OP NIL {122FA581}> on
>    #<CL-SOURCE-FILE "collections" {11C023B1}>.
> 
> 
> The original function in collections.lisp (line 558) looks like this:
> 
> (defun pprev-dup-hack (cur key)
>   "Go back one step in a duplicate set, returns nil
>    if previous element is a different key.  More efficient than
>    the current default implementation of cursor-pprev-dup"
>   (multiple-value-bind (exists? skey value pkey)
>       (cursor-pprev cur)
>     (when (lisp-compare-equal key skey)
>       (values exists? key value pkey))))
> 
> 
> I changed the last line to:
>       (values exists? skey value pkey))))
> 
> and it now seems to load. However, now I'm getting this after running all tests:
> 
> 10 out of 131 total tests failed: MAP-INDEXED-INDEX, MAP-INDEX-FROM-END,
>    INDEXING-BASIC, INDEXING-RANGE, INDEXING-SLOT-MAKUNBOUND,
>    INDEXING-WIPE-INDEX, INDEXING-RECONNECT-DB, INDEXING-CHANGE-CLASS,
>    INDEXING-REDEF-CLASS, INDEXING-TIMING.
> 
> Whereas before, I was not getting any test failures. Is this due to the typo in
> collections.lisp or something else?
> 
> Thanks,
> Daniel
> 
> _______________________________________________
> elephant-devel site list
> elephant-devel at common-lisp.net
> http://common-lisp.net/mailman/listinfo/elephant-devel
>