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."
(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
(list (subseq str (1+ at-pos)))))
(t
(delimited-string-to-list str #\/)))))
+
+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