From: Kevin M. Rosenberg Date: Sun, 30 Aug 2015 00:20:52 +0000 (-0600) Subject: Update SBCL function names X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=commitdiff_plain;h=6c773bfe59636f1198c253a5f5fe7472a637b0a6 Update SBCL function names --- 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