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