cl-2sql

commit 956ddea609474b385651a9c705680c3225acd123
parent a7f1c35e1d986ce5707fb3db1aa6c13233c4afed
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sat, 13 Aug 2011 22:48:02 +0200

partially fix oid-exp

Diffstat:
M
orm.lisp
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/orm.lisp b/orm.lisp
@@ -152,7 +152,7 @@
   (let ((bit-size +class-id-bit-size+))
     `(q:backend-ecase
       (:oracle (q:+ (q:* (q:nextval oid-seq) (q:power 2 ,bit-size)) ,class-id))
-      (:postgresql (q:\| (q:<< (q:nextval "oid_seq") ,bit-size) ,class-id)))))
+      (:postgresql (q:\| (q:<< (q:nextval "oid_seq_") ,bit-size) ,class-id))))) ;; TODO oid_seq_ via symbol printing
 
 (defun class-name-to-class-id (class-name)
   (mod (ironclad:octets-to-integer