projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
print start and stop messages while testing (probably remove, but for now I am having...
[clsql.git]
/
sql
/
generic-postgresql.lisp
diff --git
a/sql/generic-postgresql.lisp
b/sql/generic-postgresql.lisp
index 61d7e1529f30bc02eda9064336cbb22e8fd8aa71..13d4f7714d1445c10be31cdf5b267b9310f73de3 100644
(file)
--- 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)
(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))))
(setf const (append const (list :default next))))))
(append cdef const))))