Bug report: local & setq, 9.9.6, Windows

[Kazimir Majorinc]

Code Select Expand

(set 'f (lambda ()
           (local (e)
                  (setq e (map eval (args)))
                  (println "Disco! " (string? nil) "! Punk!"))))


(f "Rock'n'roll"); Disco! ("Rock'n'roll")! Punk!

[Lutz]

It's changing the value of nil when applying setf/setq on un-initialized locals defined using 'local'. This is fixed in 9.9.7. Thanks for catching this.



as a workaround use 'let' instead of 'local':

Code Select Expand

(set 'f (lambda ()
     (let (e)
           (setq e (map eval (args)))
           (println "Disco! " (string? nil) "! Punk!"))))

(f "Rock'n'roll") => Disco! nil! Punk!