Update SBCL function names

diff --git a/ChangeLog b/ChangeLog
index ab38677293be0de73362b2660b11a7b406600e9c..544825a3498c268eea42f4a955061ec5887a5398 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+29 Aug 2015  Kevin Rosenberg <kevin@rosenberg.net>
+       * Version 1.108
+       * byte-stream.lisp: Update function names for SBCL
+
 28 Aug 2015  Kevin Rosenberg <kevin@rosenberg.net>
        * Version 1.107
        * processes.lisp: Update name of SBCL function call to

diff --git a/byte-stream.lisp b/byte-stream.lisp
index 0021022e8f78c6ec5aab769a79f946f4fe47b3b1..05059a023739cc45006fee7ce5f0c27f1d691ebd 100644 (file)
--- 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
-
-

diff --git a/debian/changelog b/debian/changelog
index 8dbc1962d6ee65e8cdca410bd6ec9dce09d7a080..5ed33ff0b717d952267f528cda2e80299ab8dd7c 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-kmrcl (1.109-1) unstable; urgency=medium
+
+  * New upstream (closes:661957)
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Sat, 29 Aug 2015 18:20:13 -0600
+
 cl-kmrcl (1.108-1) unstable; urgency=medium
 
   * New upstream