refactor(form): move some form generics to elsa-form

Author: Fuco1

elsa-form.el

@@ -73,6 +73,13 @@ This only makes sense for the sequence forms:
 (cl-defgeneric elsa-form-sequence-p (_this)
   nil)
 
+;; (elsa-form-function-call-p :: (function (mixed (or symbol nil)) bool))
+(cl-defgeneric elsa-form-function-call-p (_this &optional _name) nil)
+
+;; (elsa-cadr :: (function (mixed) mixed))
+(cl-defgeneric elsa-cadr (thing)
+  "Return `cadr' of THING")
+
 (defun elsa-form-find-parent (form pred)
   "Find first parent of FORM satisfying predicate PRED."
   (declare (indent 1))

elsa-reader.el

@@ -184,9 +184,6 @@ prefix and skipped by the sexp scanner.")
 (cl-defmethod elsa-form-to-lisp ((this elsa-form-keyword))
   (oref this name))
 
-;; (elsa-form-function-call-p :: (function (mixed (or symbol nil)) bool))
-(cl-defgeneric elsa-form-function-call-p (_this &optional _name) nil)
-
 (cl-defmethod elsa-get-name ((this elsa-form-symbol))
   (oref this name))
 
@@ -364,10 +361,6 @@ prefix and skipped by the sexp scanner.")
 (cl-defmethod elsa-cdr ((this elsa-form))
   (cdr (elsa-form-sequence this)))
 
-;; (elsa-cadr :: (function (mixed) mixed))
-(cl-defgeneric elsa-cadr (thing)
-  "Return `cadr' of THING")
-
 (cl-defmethod elsa-cadr ((this list))
   (cadr this))