X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fclasses.lisp;h=c6cf764ab9debdfea53a8c2494aa77883702f92d;hb=cff8a2497b3f111a43d819476b55bfad2b447532;hp=c2cd651317291031fb6b82fcc59646db951bc6d0;hpb=967266c94b00f91e5967b8330fe2b9134b0c0447;p=clsql.git

diff --git a/sql/classes.lisp b/sql/classes.lisp
index c2cd651..c6cf764 100644
--- a/sql/classes.lisp
+++ b/sql/classes.lisp
@@ -432,7 +432,7 @@ uninclusive, and the args from that keyword to the end."
                 (subseq select-args first-key-arg))
         select-args)))
 
-(defmethod make-query (&rest args)
+(defun make-query (&rest args)
   (multiple-value-bind (selections arglist)
       (query-get-selections args)
     (destructuring-bind (&key all flatp set-operation distinct from where