From 6c773bfe59636f1198c253a5f5fe7472a637b0a6 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 29 Aug 2015 18:20:52 -0600 Subject: [PATCH] Update SBCL function names --- ChangeLog | 4 ++++ byte-stream.lisp | 14 ++++++-------- debian/changelog | 6 ++++++ 3 files changed, 16 insertions(+), 8 deletions(-) diff --git a/ChangeLog b/ChangeLog index ab38677..544825a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +29 Aug 2015 Kevin Rosenberg + * Version 1.108 + * byte-stream.lisp: Update function names for SBCL + 28 Aug 2015 Kevin Rosenberg * Version 1.107 * processes.lisp: Update name of SBCL function call to 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 - - diff --git a/debian/changelog b/debian/changelog index 8dbc196..5ed33ff 100644 --- 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 Sat, 29 Aug 2015 18:20:13 -0600 + cl-kmrcl (1.108-1) unstable; urgency=medium * New upstream -- 2.34.1