r8926: add database-create database-destroy database-probe

[clsql.git] / base / utils.lisp

diff --git a/base/utils.lisp b/base/utils.lisp
index 729109bd1ad98ed5ae21bcd24170414b738e5948..d409977d1ef87c568e4a259324db0db0156165fb 100644 (file)
--- a/base/utils.lisp
+++ b/base/utils.lisp
@@ -117,8 +117,8 @@
     (cond
       ((and at-pos (> (length str) at-pos))
        ;; Connection spec is SQL*NET format
-       (append (delimited-string-to-list (subseq str 0 at-pos) #\/)
-              (list (subseq str (1+ at-pos)))))
+       (cons (subseq str (1+ at-pos))
+            (delimited-string-to-list (subseq str 0 at-pos) #\/)))
       (t
        (delimited-string-to-list str #\/)))))