X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fstrings.cl;h=18b7ffa88e0d44a17f3435bbba66d29775372640;hb=ca7e9a2299773cfbc927d71e6289549601438b24;hp=75496e08a3c77a1069e774bea0155d641e6f73d0;hpb=01a6946b2543ade1bfd5672ca92827da7e56bf85;p=uffi.git diff --git a/src/strings.cl b/src/strings.cl index 75496e0..18b7ffa 100644 --- a/src/strings.cl +++ b/src/strings.cl @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: strings.cl,v 1.12 2002/03/22 20:51:08 kevin Exp $ +;;;; $Id: strings.cl,v 1.13 2002/03/23 12:58:12 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -159,9 +159,6 @@ that LW/CMU automatically converts strings from c-calls." ,result))) - - - ;; Modified from CMUCL's source to handle non-null terminated strings #+cmu (defun cmucl-naturalize-cstring (sap &key