Plaster
New
List
Login
common-lisp
default
anonymous
2024.01.22 09:44:10
(defun join (given-class type &rest rest &key on-source on-target limit where) ;; TODO deal with rest, on-source on-target limit and where later (make-instance 'query-object :orm-class (ensure-class given-class) :where-condition where :limit-condition limit :joined-query-objects rest :on-source on-source :on-target on-target :join-clause type)) (defun left-join (given-class &rest join-clauses &key on-source on-target limit where) ; (apply #'join (list given-class "LEFT"))) (apply #'join (list given-class "LEFT" :on-source on-source :on-target on-target :limit limit :where where join-clauses))) mito-functions.lisp:98:3: warning: The function JOIN is called with odd number of keyword arguments. Compilation failed.
Raw
Annotate
Repaste
Edit