10 Sep 2007 Kevin Rosenberg <kevin@rosenberg.net> debian-1.96-1 v1.96
authorKevin Rosenberg <kevin@rosenberg.net>
Tue, 11 Sep 2007 00:20:02 +0000 (18:20 -0600)
committerKevin Rosenberg <kevin@rosenberg.net>
Tue, 11 Sep 2007 00:20:02 +0000 (18:20 -0600)
        * Version 1.96
        * byte-stream.lisp: Use without-package-locks as suggested
        by Daniel Gackle.

ChangeLog
byte-stream.lisp
debian/changelog

index 8c1cb00..17bb1ff 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
index 6e785fa..e303607 100644 (file)
@@ -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))
 
 )
 
index 47d8f07..d9e5a19 100644 (file)
@@ -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