Executing MACROPS
(defun execute-macrop (form-in)
(let ((forms-out (match-macrop form-in *macrops*)))
(error "Couldn't find a match for ~a~%" form-in))
(T (ti-execute-commands forms-out)))))
(defun match-macrop (form-in macrops)
(T (let ((bindings (match form-in
(macrop-in-form (first macrops)))))
(match-macrop form-in (cdr macrops)))
(T (mapcar #'(lambda (form)
(copy-and-instantiate form bindings))
(macrop-out-forms (first macrops)))))))))