r10572: fix for lispworks

diff --git a/src/strings.lisp b/src/strings.lisp
index 1e90118c174e8a10f25dda0f06224d533a7c1ff3..e54a94095c8aa0d284f93cb509e03c48c22aad2d 100644 (file)
--- 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))