r8918: add missing function

diff --git a/base/utils.lisp b/base/utils.lisp
index 3f9ad8a6348862c3dce8723b4cd5dee1d80db835..729109bd1ad98ed5ae21bcd24170414b738e5948 100644 (file)
--- a/base/utils.lisp
+++ b/base/utils.lisp
@@ -81,6 +81,15 @@
       procstr)))
 
 
+(defun position-char (char string start max)
+  "From KMRCL."
+  (declare (optimize (speed 3) (safety 0) (space 0))
+          (fixnum start max) (simple-string string))
+  (do* ((i start (1+ i)))
+       ((= i max) nil)
+    (declare (fixnum i))
+    (when (char= char (schar string i)) (return i))))
+
 (defun delimited-string-to-list (string &optional (separator #\space) 
                                                  skip-terminal)
   "Split a string with delimiter, from KMRCL."
@@ -104,7 +113,7 @@
     (setq pos (1+ end))))
 
 (defun string-to-list-connection-spec (str)
-  (let ((at-pos (position #\@ str)))
+  (let ((at-pos (position-char #\@ str)))
     (cond
       ((and at-pos (> (length str) at-pos))
        ;; Connection spec is SQL*NET format
@@ -112,3 +121,4 @@
               (list (subseq str (1+ at-pos)))))
       (t
        (delimited-string-to-list str #\/)))))
+

diff --git a/debian/changelog b/debian/changelog
index fcb6d455a6e0cb681af0c8e349e90d7ef48a4fca..ee46a59e10e1e4140a1b00dc3e85584032244043 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-sql (2.5.2-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Fri,  9 Apr 2004 12:54:21 -0600
+
 cl-sql (2.5.1-1) unstable; urgency=low
 
   * New upstream