r9246: return list of lists for :target-slot

[clsql.git] / sql / objects.lisp

diff --git a/sql/objects.lisp b/sql/objects.lisp
index fccf37dbb2a359dc854e1e31c268525af9d6f91e..2ebad78b332af0017ff545b76edff45e3eff218d 100644 (file)
--- a/sql/objects.lisp
+++ b/sql/objects.lisp
@@ -722,7 +722,7 @@ superclass of the newly-defined View Class."
        (mapcar (lambda (obj)
                  (let* ((target-name (gethash :target-slot dbi))
                         (target-class (find-class target-name)))
-                   (cons 
+                   (list 
                     (car
                      (fault-join-slot-raw 
                       target-class