r11023: 2006-08-13 Kevin Rosenberg (kevin@rosenberg.net)

        * Version 1.5.15
        * src/{objects,strings}.lisp: Add support for Lispworks 5
        thanks to patches from Bill Atkins

diff --git a/ChangeLog b/ChangeLog
index 688f4b6ecebd80ef1af1d1cfe1dcbe93cad264bd..ee71e036d8b18db53ad4a0976ecb8e201e8da953 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2006-08-13 Kevin Rosenberg (kevin@rosenberg.net)
-       * src/objects.lisp: Add support for Lispworks 5 by Bill Atkins 
+       * Version 1.5.15
+       * src/{objects,strings}.lisp: Add support for Lispworks 5 
+       thanks to patches from Bill Atkins 
 
 2006-07-04 Kevin Rosenberg (kevin@rosenberg.net)
        * Version 1.5.14

diff --git a/debian/changelog b/debian/changelog
index 8075eb6e47c9ab0f64bdac5b204566be52ab0e5b..7e61a639bdbd17595556a4849003bfedb493b72a 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-uffi (1.5.15-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Mon, 14 Aug 2006 00:21:47 -0600
+
 cl-uffi (1.5.14-1) unstable; urgency=low
 
   * New upstream

diff --git a/src/strings.lisp b/src/strings.lisp
index ed3f7e820de6cceb90dc02834edb648189a34dbe..0bdeeabe277a0338f6c37bd2439de584da76e39d 100644 (file)
--- a/src/strings.lisp
+++ b/src/strings.lisp
@@ -389,7 +389,7 @@ that LW/CMU automatically converts strings from c-calls."
 
 (def-type char-ptr-def (* :unsigned-char))
 
-#+(or lispworks (and allegro (not ics)))
+#+(or (and allegro (not ics)) (and lispworks (not lispworks5)))
 (defun fast-native-to-string (s len)
   (declare (optimize (speed 3) (space 0) (safety 0) (compilation-speed 0))
           (type char-ptr-def s))
@@ -402,7 +402,7 @@ that LW/CMU automatically converts strings from c-calls."
       (setf (aref str i)
        (uffi:deref-array s '(:array :char) i)))))
 
-#+(and allegro ics)
+#+(or (and allegro ics) lispworks5)
 (defun fast-native-to-string (s len)
   (declare (optimize (speed 3) (space 0) (safety 0) (compilation-speed 0))
           (type char-ptr-def s))