From afa1e8481ca62ee15952c695fd04c8601b65b218 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 9 Apr 2004 18:56:06 +0000 Subject: [PATCH 1/1] r8918: add missing function --- base/utils.lisp | 12 +++++++++++- debian/changelog | 6 ++++++ 2 files changed, 17 insertions(+), 1 deletion(-) diff --git a/base/utils.lisp b/base/utils.lisp index 3f9ad8a..729109b 100644 --- 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 fcb6d45..ee46a59 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-sql (2.5.2-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Fri, 9 Apr 2004 12:54:21 -0600 + cl-sql (2.5.1-1) unstable; urgency=low * New upstream -- 2.34.1