X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=create-sql.lisp;h=a6f8ad390f4f0aecfa9ae10fbcf186923e203c3e;hb=dff3199405205cf99782dd3abf9d9dde187f5494;hp=e81440d1c51be43f40025f82598bdd06c9830ade;hpb=3199369942d2e5ab4f5b060c2c6b655caf505944;p=umlisp.git

diff --git a/create-sql.lisp b/create-sql.lisp
index e81440d..a6f8ad3 100644
--- a/create-sql.lisp
+++ b/create-sql.lisp
@@ -7,7 +7,7 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: create-sql.lisp,v 1.1 2003/05/07 21:57:06 kevin Exp $
+;;;; $Id: create-sql.lisp,v 1.2 2003/05/07 22:53:36 kevin Exp $
 ;;;;
 ;;;; This file, part of UMLisp, is
 ;;;;    Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
@@ -49,8 +49,9 @@
   "Return sql insert command for a row of values"  
   (let ((insert-func
 	 (lambda (col value)
-	   (let ((q (quotechar col)))
-	     (concatenate 'string q (insert-col-value col value) q)))))
+	   (concatenate 'string (quote-str col)
+			(insert-col-value col value)
+			(quote-str col)))))
     (format
      nil "INSERT INTO ~a (~{~a~^,~}) VALUES (~A)"
      (table file)
@@ -65,8 +66,9 @@
   (let ((custom-value (funcall (custom-value-fun col) values)))
     (if custom-value
 	(if doquote
-	    (let ((q (quotechar col)))
-	      (concatenate 'string q (escape-backslashes custom-value) q))
+	    (concatenate 'string (quote-str col)
+			 (escape-backslashes custom-value)
+			 (quote-str col))
 	    (escape-backslashes custom-value))
 	"")))