[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
DEFUN& strikes again!
- To: (BUG LISP) at MIT-MC
- Subject: DEFUN& strikes again!
- From: RLB at MIT-MC (Richard L. Bryan)
- Date: Thu, 17 Apr 80 17:52:00 GMT
- Original-date: 17 APR 1980 1252-EST
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".
(declare (special subrs VASL-stream))
(defun ap3 (filename &optional pkg-name module-name
&aux (owho3 (status who3))
(subrs (reverse subrs))
(list subrs filename pkg-name module-name))
(setq subrs (list 'fact))