From: Kevin M. Rosenberg Date: Thu, 27 Jan 2005 05:56:00 +0000 (+0000) Subject: r10284: * sql/utils.lisp: Fix unnecessary consing noted by Fred Gilham. X-Git-Tag: v3.8.6~183 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=8be012819c4ecad867ac6f1b0f476116dc14fc15 r10284: * sql/utils.lisp: Fix unnecessary consing noted by Fred Gilham. --- diff --git a/ChangeLog b/ChangeLog index 47fc73d..6773d1f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,7 @@ 25 Jan 2005 Kevin Rosenberg * tests/*.lisp: Change Vladamir to Vladimir per Cyrus Harmon's suggestion. + * sql/utils.lisp: Fix unnecessary consing noted by Fred Gilham. 24 Jan 2005 Kevin Rosenberg * doc/bookinfo.xml, doc/csql.xml, doc/intro.xml: Update links diff --git a/sql/utils.lisp b/sql/utils.lisp index 0e40b1d..ef4f990 100644 --- a/sql/utils.lisp +++ b/sql/utils.lisp @@ -52,10 +52,9 @@ (defun sql-escape (identifier) "Change hyphens to underscores, ensure string" - (let* ((unescaped (etypecase identifier - (symbol (symbol-name identifier)) - (string identifier))) - (escaped (make-string (length unescaped)))) + (let ((unescaped (etypecase identifier + (symbol (symbol-name identifier)) + (string identifier)))) (substitute #\_ #\- unescaped))) (defmacro without-interrupts (&body body)