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

[lists at infoway.net]

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