[elephant-devel] Re: Trouble compiling Elephant on SBCL

[Alex Mizrahi]

 IE> We'll need alot more information to help.

my telepathy says it's stuff in memutil.lisp

;; Thanks to Juho Snellman for this idiom.
(eval-when (:compile-toplevel)
  (defun new-style-copy-p ()
    #+(and sbcl sb-unicode)
    (if (find-symbol "COPY-UB8-FROM-SYSTEM-AREA" "SB-KERNEL")
 '(:and)
 '(:or))
    #-(and sbcl sb-unicode)
    t))

    #+(and sbcl sb-unicode)
    (let ((res (make-string byte-length :element-type 'base-char)))
      #+#.(elephant-memutil::new-style-copy-p)
      (sb-kernel:copy-ub8-from-system-area
        (sb-alien:alien-sap (buffer-stream-buffer bs))
        position
        res
 0
        byte-length)


it seems #+#. trick got somehow broken with new version of SBCL with 
optimization settings.

comment says

;; This code is an attempt to allow compilation under bothe SBCL 8 and SBCL 
9.

so perhaps this stuff ain't needed for now.