X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=sql%2Fobjects.lisp;h=2ebad78b332af0017ff545b76edff45e3eff218d;hb=1c5166f0e106b086a5f50a7ce5af2f50d6c6b58e;hp=fccf37dbb2a359dc854e1e31c268525af9d6f91e;hpb=89465a80557c2b03b9701b4239a34ded292eb018;p=clsql.git

diff --git a/sql/objects.lisp b/sql/objects.lisp
index fccf37d..2ebad78 100644
--- 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