From 004763863c03a6ff18380ee2590343f60ecf93dc Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 30 May 2005 09:35:50 +0000
Subject: [PATCH] One of the cond branches was missing call to STRING. Move it
 to after the cond.

---
 src/lsp/ffi.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/lsp/ffi.lsp b/src/lsp/ffi.lsp
index 8c4aefab3..1ce4a52b5 100644
--- a/src/lsp/ffi.lsp
+++ b/src/lsp/ffi.lsp
@@ -141,7 +141,7 @@
 	  separator-string (string separator-string))
     (dolist (item values-list)
       (cond ((symbolp item)
-	     (setf field (string item))
+	     (setf field item)
 	     (incf value))
 	    ((and (consp item)
 		  (symbolp (setf field (first item)))
@@ -152,7 +152,7 @@
       (setf field (concatenate 'string
 			       (symbol-name name)
 			       separator-string
-			       field))
+			       (string field)))
       (push `(defconstant ,(intern field (symbol-package name))
 	       ',value)
 	    forms))