From b7f3a2b6318514a93a08c67254eb145e1a3a29e2 Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Mon, 10 Sep 2007 18:20:02 -0600 Subject: [PATCH] 10 Sep 2007 Kevin Rosenberg * Version 1.96 * byte-stream.lisp: Use without-package-locks as suggested by Daniel Gackle. --- ChangeLog | 5 +++++ byte-stream.lisp | 31 ++++++++++++++++--------------- debian/changelog | 6 ++++++ 3 files changed, 27 insertions(+), 15 deletions(-) diff --git a/ChangeLog b/ChangeLog index 8c1cb00..17bb1ff 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +10 Sep 2007 Kevin Rosenberg + * Version 1.96 + * byte-stream.lisp: Use without-package-locks as suggested + by Daniel Gackle. + 01 Jun 2007 Kevin Rosenberg * Version 1.95 * {datetime,package}.lisp: Add day-of-week and pretty-date-ut diff --git a/byte-stream.lisp b/byte-stream.lisp index 6e785fa..e303607 100644 --- a/byte-stream.lisp +++ b/byte-stream.lisp @@ -241,21 +241,22 @@ Make-Byte-Array-Output-Stream since the last call to this function." (replace result (slot-value stream 'excl::buffer)) result)) - (defmethod excl:device-extend ((stream extendable-buffer-output-stream) - need action) - (declare (ignore action)) - (let* ((len (file-position stream)) - (new-len (max (+ len need) (* 2 len))) - (old-buf (slot-value stream 'excl::buffer)) - (new-buf (make-array new-len :element-type '(unsigned-byte 8)))) - (declare (fixnum len) - (optimize (speed 3) (safety 0))) - (dotimes (i len) - (setf (aref new-buf i) (aref old-buf i))) - (setf (slot-value stream 'excl::buffer) new-buf) - (setf (slot-value stream 'excl::buffer-ptr) new-len) - ) - t) + (excl::without-package-locks + (defmethod excl:device-extend ((stream extendable-buffer-output-stream) + need action) + (declare (ignore action)) + (let* ((len (file-position stream)) + (new-len (max (+ len need) (* 2 len))) + (old-buf (slot-value stream 'excl::buffer)) + (new-buf (make-array new-len :element-type '(unsigned-byte 8)))) + (declare (fixnum len) + (optimize (speed 3) (safety 0))) + (dotimes (i len) + (setf (aref new-buf i) (aref old-buf i))) + (setf (slot-value stream 'excl::buffer) new-buf) + (setf (slot-value stream 'excl::buffer-ptr) new-len) + ) + t)) ) diff --git a/debian/changelog b/debian/changelog index 47d8f07..d9e5a19 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-kmrcl (1.96-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Mon, 10 Sep 2007 18:18:11 -0600 + cl-kmrcl (1.95-1) unstable; urgency=low * New upstream -- 2.34.1