Thanks, Danilo.
So the explanation is that the (push1 '*Bye '(saveHistory)), which is found in
*Led and executed after each new command line in debug mode, makes sure that
the (saveHistory”) is always found in *Bye (up front).
/Jon
On 7. May, 2014, at 22:46, Danilo Kordic
Hi,
I'm using 32-bit PicoLisp (3.1.6.8 C) doing this:
: *Bye
- ((saveHistory))
: (setq *Bye '((println 'OK) (println 'bye)))
- ((println 'OK) (println 'bye))
: *Bye
- ((saveHistory) (println 'OK) (println 'bye))
: (setq X '((XXX)))
- ((XXX))
: (setq X '((println 'OK) (println 'bye)))
- ((println
Magic is in *Led.
Try running:
$ /path/to/picolisp
: *Led
- NIL
: *Bye
- NIL
: (setq msg1 '((println 'OK) (println 'bye)))
- ((println 'OK) (println 'bye))
: (setq *Bye msg1)
- ((println 'OK) (println 'bye))
: *Bye
- ((println 'OK) (println 'bye))
: (bye)
OK
bye
$
