X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fstrings.lisp;h=c81562862714c1f9ed722d57fcef3df23ea29145;hb=3ade95bab16abe09642554e9cbf56f117f01e507;hp=1e90118c174e8a10f25dda0f06224d533a7c1ff3;hpb=87acde9ae931ba8ac7bd486809f6dab3b2448790;p=uffi.git

diff --git a/src/strings.lisp b/src/strings.lisp
index 1e90118..c815628 100644
--- a/src/strings.lisp
+++ b/src/strings.lisp
@@ -9,11 +9,7 @@
 ;;;;
 ;;;; $Id$
 ;;;;
-;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
-;;;;
-;;;; UFFI users are granted the rights to distribute and use this software
-;;;; as governed by the terms of the Lisp Lesser GNU Public License
-;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
+;;;; This file, part of UFFI, is Copyright (c) 2002-2005 by Kevin M. Rosenberg
 ;;;; *************************************************************************
 
 (in-package #:uffi)
@@ -109,11 +105,11 @@ that LW/CMU automatically converts strings from c-calls."
   #+lispworks
   (let ((stored (gensym)))
     `(let ((,stored ,obj))
-       `(if (null ,stored)
-	    +null-cstring-pointer+
-	    (fli:convert-to-foreign-string 
-	     ,stored
-	     :external-format '(:latin-1 :eol-style :lf)))))
+       (if (null ,stored)
+	   +null-cstring-pointer+
+	   (fli:convert-to-foreign-string 
+	    ,stored
+	    :external-format '(:latin-1 :eol-style :lf)))))
   #+allegro
   (let ((stored (gensym)))
     `(let ((,stored ,obj))