There's a principled(-ish) feature in `definst' nowadays.
;; Important instruction classes.
;; Important instruction classes.
-;; HACK: Some of the slot names we'd like to use are external symbols in our
-;; package or the `common-lisp' package. Use gensyms for these slot names to
-;; prevent them from leaking.
-
(definst var (stream :export t) (name %type &optional init)
(pprint-logical-block (stream nil)
(pprint-c-type type stream name)
(definst var (stream :export t) (name %type &optional init)
(pprint-logical-block (stream nil)
(pprint-c-type type stream name)