(dispose-local-alien ',info ,var))))))))))))
(/show "revised" body)
(verify-local-auxiliaries-okay)
(dispose-local-alien ',info ,var))))))))))))
(/show "revised" body)
(verify-local-auxiliaries-okay)
`(symbol-macrolet ((&auxiliary-type-definitions&
,(append *new-auxiliary-types*
(auxiliary-type-definitions env))))
`(symbol-macrolet ((&auxiliary-type-definitions&
,(append *new-auxiliary-types*
(auxiliary-type-definitions env))))
;; alien values) both messy to do by hand and very important
;; for performance of later code which uses the return value.
(declaim (ftype (function ,(lisp-arg-types)
;; alien values) both messy to do by hand and very important
;; for performance of later code which uses the return value.
(declaim (ftype (function ,(lisp-arg-types)