[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

CompiledInterpreted



Is something wrong with the compiler's (888) side effects analysis?

(DEFUN TTT (STREAM)
       (PROG2 ()
	      (CAR (SYMEVAL STREAM))
	      (SET STREAM (CDR (SYMEVAL STREAM)))))

;; interpreted
(SETQ X '(3 4))
(3 4) 
(TTT 'X)
3 
X
(4) 

;; compiled
(SETQ X '(3 4))
(3 4) 
(TTT 'X)
4 
X
(4)