From 96f1b817adddbf0a33b54b3b23c09b1c39a23871 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 15 May 2002 17:23:59 +0000 Subject: [PATCH] r2051: Debian build --- base/utils.cl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/base/utils.cl b/base/utils.cl index a33fb41..b64824c 100644 --- a/base/utils.cl +++ b/base/utils.cl @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: utils.cl,v 1.1 2002/05/15 17:19:42 kevin Exp $ +;;;; $Id: utils.cl,v 1.2 2002/05/15 17:23:59 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -32,7 +32,7 @@ "Convert exponent character for SQL" (substitute #\e #\f (substitute #\e #\d (write-to-string num :readably t)))) -(defun sql-escape-quotes (s) +(defun sql-escape (s) "Escape single quotes for SQL" (substitute-string-for-char s #\' "''")) -- 2.34.1