X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fgeneric-postgresql.lisp;fp=sql%2Fgeneric-postgresql.lisp;h=13d4f7714d1445c10be31cdf5b267b9310f73de3;hp=61d7e1529f30bc02eda9064336cbb22e8fd8aa71;hb=0b35694f3659e5ee739ea72ce74d798c3f0ddb73;hpb=c5114f6d1dd70197d14c94ac8b83c19016e76880

diff --git a/sql/generic-postgresql.lisp b/sql/generic-postgresql.lisp
index 61d7e15..13d4f77 100644
--- a/sql/generic-postgresql.lisp
+++ b/sql/generic-postgresql.lisp
@@ -263,7 +263,7 @@
       (when seq
         (setf const (remove :auto-increment const))
         (unless (member :default const)
-          (let* ((next (format nil "nextval('~a')" (escaped-database-identifier seq))))
+          (let* ((next (format nil " nextval('~a')" (escaped-database-identifier seq))))
             (setf const (append const (list :default next))))))
       (append cdef const))))