From 045b87e7fdcf1c5562fe170d96622e0a09759f64 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 13 Apr 2005 18:43:34 +0000 Subject: [PATCH] r10396: 2005-04-12 Kevin Rosenberg (kevin@rosenberg.net) * Version 1.4.37 * src/strings.lisp: Fix variable name --- ChangeLog | 4 ++++ debian/changelog | 6 ++++++ src/strings.lisp | 4 ++-- 3 files changed, 12 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 8992603..dbca9fd 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2005-04-12 Kevin Rosenberg (kevin@rosenberg.net) + * Version 1.4.37 + * src/strings.lisp: Fix variable name + 2005-04-04 Kevin Rosenberg (kevin@rosenberg.net) * src/strings.lisp, src/aggregates.lisp: Support change in SBCL copy function [Thanks for Nathan Froyd and Zach Beane] diff --git a/debian/changelog b/debian/changelog index ecd1107..f81d87c 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-uffi (1.4.37-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Wed, 13 Apr 2005 12:42:41 -0600 + cl-uffi (1.4.36-1) unstable; urgency=low * New upstream diff --git a/src/strings.lisp b/src/strings.lisp index 2e7ff96..684b035 100644 --- a/src/strings.lisp +++ b/src/strings.lisp @@ -338,8 +338,8 @@ that LW/CMU automatically converts strings from c-calls." (t (let ((result (make-string length))) ;; this will not work in sb-unicode - (funcall *system-copy-fn* sap 0 result *system-copy-offset* - (* length *system-copy-multiplier*)) + (funcall *system-copy-fn* sap 0 result +system-copy-offset+ + (* length +system-copy-multiplier+)) result))))) -- 2.34.1