Move define-tg-method to a new file

1 files changed, 1 insertions, 25 deletions

diff --git a/src/tg/macros.lisp b/src/tg/macros.lisp
index 92afd6e..9577d94 100644
--- a/src/tg/macros.lisp
+++ b/src/tg/macros.lisp
@@ -7,7 +7,7 @@
   (:import-from :ukkoclot/strings :lisp->snake-case)
   (:local-nicknames
    (:jzon :com.inuoe.jzon))
-  (:export :define-tg-method :define-tg-type))
+  (:export :define-tg-type))
 (in-package :ukkoclot/tg/macros)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
@@ -74,30 +74,6 @@
   (defun field->struct-spec (field)
     (list (field-name field) (field-default field) :type (field-type field))))
 
-;; TODO: Automatically derive path from name
-;; TODO: Automatically derive mapfn from type
-(defmacro define-tg-method (
-                            (name type path &optional (method :POST))
-                            &body field-specs)
-  (let* ((fields (parse-field-specs field-specs))
-         (revfields (reverse fields))
-         (args (gensym "ARGS"))
-         (bot (gensym "BOT-")))
-    `(progn
-       (declaim (ftype (function (bot &key ,@(loop for field in fields
-                                                 collect (field->ftype-spec field)))
-                                 ,type)
-                       ,name))
-       (defun ,name (,bot &key ,@(loop for field in fields collect (field->defun-spec field)))
-         (let (,args)
-           ,@(loop for field in revfields
-                   collecting
-                   (if (field-skip-if-default field)
-                       `(unless (equal ,(field-name field) ,(field-default field))
-                          (setf ,args (acons ',(field-name field) ,(field-name field) ,args)))
-                       `(setf ,args (acons ',(field-name field) ,(field-name field) ,args))))
-           (do-call ,bot ,method ,path ',type ,args))))))
-
 (defmacro define-tg-type (name &body field-specs)
   (let* ((fields (parse-field-specs field-specs))
          (revfields (reverse fields))