From 44a2c6231b0a658e28705d5834549db9e0f1159f Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Wed, 8 Jun 2005 18:57:45 +0000
Subject: [PATCH] r10572: fix for lispworks

---
 src/strings.lisp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/strings.lisp b/src/strings.lisp
index 1e90118..e54a940 100644
--- a/src/strings.lisp
+++ b/src/strings.lisp
@@ -109,11 +109,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))
-- 
2.34.1