DEFUN& strikes again!

[RLB at MIT-MC (Richard L. Bryan)]

Macroexpansion of the following code binds SUBRS to (), then does
(DESETQ SUBRS (REVERSE SUBRS)) which is purely wrong.  This sounds
suspiciously like one of those infamous "unsafe optimizations".


;-*-LISP-*-
(declare (special subrs VASL-stream))

(defun ap3 (filename &optional pkg-name module-name
		     &aux (owho3 (status who3))
		     (subrs (reverse subrs))
		     VASL-stream)
	   (list subrs filename pkg-name module-name))

(setq subrs (list 'fact))