Function: REGISTER-DESCRIPTOR

Source

(defun register-descriptor (descriptor)
  (push (cons (name descriptor) descriptor)
        (gethash (label-prefix descriptor) *known-elements*)))