From 799ee65db4f2b83d8600920db490213bc167841f Mon Sep 17 00:00:00 2001
From: Drew Crampsie <drewc@tech.coop>
Date: Wed, 20 Jul 2005 12:34:01 -0700
Subject: [PATCH] modified the automagic naming of many-to-many slots.

darcs-hash:20050720193401-5417e-0b196039972f7260bf49ac9e8e1d257f2610d2ae.gz
---
 src/backend/clsql.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
2.20.1