(in-package "C") ;;; New variable kind :macro. (define-info-type variable kind (member :special :constant :global :alien :macro) (if (or (eq (symbol-package name) (symbol-package :end)) (member name '(t nil))) :constant :global)) ;;; New info type for symbol-macro expansion. (define-info-type variable macro-expansion t nil)