From: Kevin M. Rosenberg Date: Mon, 14 Aug 2006 06:25:09 +0000 (+0000) Subject: r11023: 2006-08-13 Kevin Rosenberg (kevin@rosenberg.net) X-Git-Tag: v1.6.1~16 X-Git-Url: http://git.kpe.io/?p=uffi.git;a=commitdiff_plain;h=0387c7216d0e8d0300323689be5c3c0eaad54171 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 688f4b6..ee71e03 100644 --- 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 8075eb6..7e61a63 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-uffi (1.5.15-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg 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 ed3f7e8..0bdeeab 100644 --- 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))