X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=byte-stream.lisp;h=05059a023739cc45006fee7ce5f0c27f1d691ebd;hb=5c5adb1297021e440fa4943ef996c59ed9681178;hp=0021022e8f78c6ec5aab769a79f946f4fe47b3b1;hpb=251043d4c96c996a35cd48c4452b03fbef2ea21a;p=kmrcl.git

diff --git a/byte-stream.lisp b/byte-stream.lisp
index 0021022..05059a0 100644
--- a/byte-stream.lisp
+++ b/byte-stream.lisp
@@ -94,12 +94,12 @@ Make-Byte-Array-Output-Stream since the last call to this function."
 #+sbcl
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (sb-ext:without-package-locks
-      (defvar *system-copy-fn* (if (fboundp (intern "COPY-SYSTEM-AREA" "SB-KERNEL"))
-                                   (intern "COPY-SYSTEM-AREA" "SB-KERNEL")
-                                   (intern "COPY-SYSTEM-UB8-AREA" "SB-KERNEL")))
-    (defconstant +system-copy-multiplier+ (if (fboundp (intern "COPY-FROM-SYSTEM-AREA" "SB-KERNEL"))
-                                              sb-vm:n-byte-bits
-                                         1))))
+      (sb-ext:without-package-locks
+          (defvar *system-copy-fn* (intern "SYSTEM-AREA-UB8-COPY" "SB-KERNEL"))
+          (defconstant +system-copy-multiplier+
+            (if (fboundp (intern "COPY-UB8-FROM-SYSTEM-AREA" "SB-KERNEL"))
+                sb-vm:n-byte-bits
+                1)))))
 
 #+(or cmu sbcl)
 (progn
@@ -264,5 +264,3 @@ Make-Byte-Array-Output-Stream since the last call to this function."
                                                         (end (length buffer)))
     (excl:make-buffer-input-stream buffer start end :octets))
   ) ;; progn
-
-