Function: ANALYSE-CODE-PART

Documentation

Match an info collection from *CODE-INFO-COLLECTORS* and evaluate it to fill up the code part descriptor.

Source

(defun analyse-code-part (code-part)
  "Match an info collection from *CODE-INFO-COLLECTORS* and evaluate it to fill up the code part descriptor."
  (awhen (gethash (first (form code-part)) *code-info-collectors*)
    (setf (descriptor code-part) (funcall it (cdr (form code-part))))
    (register-descriptor (descriptor code-part)))
  code-part)