From f5e09161c9bbee507927de839b9691523ab53fc2 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 1 Oct 2004 17:24:52 +0000 Subject: [PATCH] r10078: fix typo from manual patch application --- db-odbc/odbc-ff-interface.lisp | 4 +--- sql/utils.lisp | 9 --------- 2 files changed, 1 insertion(+), 12 deletions(-) diff --git a/db-odbc/odbc-ff-interface.lisp b/db-odbc/odbc-ff-interface.lisp index a7153c8..e46db57 100644 --- a/db-odbc/odbc-ff-interface.lisp +++ b/db-odbc/odbc-ff-interface.lisp @@ -384,9 +384,7 @@ (table-name :pointer-void) (table-name-length :short) (table-type-name :pointer-void) - (table-type-name-length :short) - (unique :short) - (reserved :short)) + (table-type-name-length :short)) :module "odbc" :returning :short) diff --git a/sql/utils.lisp b/sql/utils.lisp index 362d16c..0e40b1d 100644 --- a/sql/utils.lisp +++ b/sql/utils.lisp @@ -58,15 +58,6 @@ (escaped (make-string (length unescaped)))) (substitute #\_ #\- unescaped))) -(dotimes (i (length unescaped)) - (setf (char escaped i) - (cond ((equal (char unescaped i) #\-) - #\_) - ;; ... - (t - (char unescaped i))))) - escaped)) - (defmacro without-interrupts (&body body) #+allegro `(mp:without-scheduling ,@body) #+clisp `(progn ,@body) -- 2.34.1