From: Drew Crampsie <drewc@tech.coop>
Date: Wed, 20 Jul 2005 19:34:01 +0000 (-0700)
Subject: modified the automagic naming of many-to-many slots.
X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/commitdiff_plain/799ee65db4f2b83d8600920db490213bc167841f

modified the automagic naming of many-to-many slots.

darcs-hash:20050720193401-5417e-0b196039972f7260bf49ac9e8e1d257f2610d2ae.gz
---

diff --git a/src/backend/clsql.lisp b/src/backend/clsql.lisp
index e4e8353..380b082 100644
--- a/src/backend/clsql.lisp
+++ b/src/backend/clsql.lisp
@@ -209,7 +209,7 @@ AND fa.attnum = ANY (pg_constraint.confkey)"))
    :set t))
 
 (defun gen-many-to-many (row home-key foreign-key)
- (let ((name (sql->sym (string-upcase (format nil "~A->~A" (string (car row)) (string (second row)))))))
+ (let ((name (sql->sym (string-upcase (format nil "~A<-~A->~A" (string (car row)) (string foreign-key) (string (second row)))))))
    (setf row (mapcar #'sql->sym row))
    `(,name
      :accessor ,name