Macro: DEFCODE-INFO-COLLECTOR

Documentation

Macro for defining code parts info collectors. You can use it to generate descriptors for your custom macros.

Source

(defmacro defcode-info-collector (operator args &body body)
  "Macro for defining code parts info collectors.
You can use it to generate descriptors for your custom macros."
  (with-unique-names (form)
    (let ((function-name (intern (strcat operator :-descriptor) (find-package :it.bese.qbook))))
      `(progn
         (defun ,function-name (,form)
           (destructuring-bind ,args ,form
             ,@body))
         (setf (gethash ',operator *code-info-collectors*)
               ',function-name)))))