From 8be012819c4ecad867ac6f1b0f476116dc14fc15 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 27 Jan 2005 05:56:00 +0000 Subject: [PATCH] r10284: * sql/utils.lisp: Fix unnecessary consing noted by Fred Gilham. --- ChangeLog | 1 + sql/utils.lisp | 7 +++---- 2 files changed, 4 insertions(+), 4 deletions(-) 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) -- 2.34.1