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, [EMAIL PROTECTED] 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@common-lisp.net
> http://common-lisp.net/mailman/listinfo/elephant-devel
>
_______________________________________________
elephant-devel site list
elephant-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel
