10 Sep 2007 Kevin Rosenberg <kevin@rosenberg.net>

        * Version 1.96
        * byte-stream.lisp: Use without-package-locks as suggested
        by Daniel Gackle.

diff --git a/ChangeLog b/ChangeLog
index 8c1cb00828046c03cb5a4afe90ea513cf59fac9b..17bb1ff2cee1e7aa436e4f69840fe284cecb35da 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+10 Sep 2007  Kevin Rosenberg <kevin@rosenberg.net>
+       * Version 1.96
+       * byte-stream.lisp: Use without-package-locks as suggested
+       by Daniel Gackle.
+

 01 Jun 2007  Kevin Rosenberg <kevin@rosenberg.net>
        * Version 1.95
        * {datetime,package}.lisp: Add day-of-week and pretty-date-ut
 01 Jun 2007  Kevin Rosenberg <kevin@rosenberg.net>
        * 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 6e785fa2fa90d883ce1aca8ba3f784151f4fdf44..e3036074a00034224864fd7b3dfcef8767a98ff8 100644 (file)
--- 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))
 
       (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 47d8f07764e28f485e4d7b4ab9b88eeeb3f05bfa..d9e5a1942118cc3a1170caaa9df566d03ab6c744 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-kmrcl (1.96-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Mon, 10 Sep 2007 18:18:11 -0600
+

 cl-kmrcl (1.95-1) unstable; urgency=low
 
   * New upstream
 cl-kmrcl (1.95-1) unstable; urgency=low
 
   * New upstream