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

[clinton/lisp-on-lines.git] / src / backend / clsql.lisp

diff --git a/src/backend/clsql.lisp b/src/backend/clsql.lisp
index e4e8353..380b082 100644 (file)
--- 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)
    :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
    (setf row (mapcar #'sql->sym row))
    `(,name
      :accessor ,name