#-(or cmu allegro lispworks openmcl sb-thread scl) `(progn ,@body))
(defun sql-escape-quotes (s)
"Escape quotes for SQL string writing"
(substitute-string-for-char s #\' "''"))
#-(or cmu allegro lispworks openmcl sb-thread scl) `(progn ,@body))
(defun sql-escape-quotes (s)
"Escape quotes for SQL string writing"
(substitute-string-for-char s #\' "''"))