From 925a29060928f773d4bc7d8e6bdd13c97e0ef65a Mon Sep 17 00:00:00 2001
From: Nathan Bird <nathan@acceleration.net>
Date: Fri, 1 Jul 2011 14:16:25 -0400
Subject: [PATCH] A few type declarations

---
 sql/utils.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/sql/utils.lisp b/sql/utils.lisp
index 34cd5dc..7f307d6 100644
--- a/sql/utils.lisp
+++ b/sql/utils.lisp
@@ -43,6 +43,7 @@
 (defun float-to-sql-string (num)
   "Convert exponent character for SQL"
   (let ((str (write-to-string num :readably t)))
+    (declare (type string str))
     (cond
      ((find #\f str)
       (substitute #\e #\f str))
@@ -125,6 +126,7 @@
 
 (defun substitute-string-for-char (procstr match-char subst-str)
 "Substitutes a string for a single matching character of a string"
+  (declare (type string procstr))
   (let ((pos (position match-char procstr)))
     (if pos
         (concatenate 'string
@@ -166,6 +168,7 @@
     (setq pos (1+ end))))
 
 (defun string-to-list-connection-spec (str)
+  (declare (type string str))
   (let ((at-pos (position-char #\@ str 0 (length str))))
     (cond
       ((and at-pos (> (length str) at-pos))
-- 
2.34.1