[Bese-devel] values of k are getting re-cps-transformed

[Larry D'Anna]

There's a bug where continuations expressions that represent continuations
are getting cps-transformed.  You can see it if you try this:

(defvar *x* 'foo)
(defvar *y)

(defun/cc erg ()
  (print *x*))

(with-call/cc 
  (progn 
    (call/cc (lambda (k) (setq *y* k) :ok))
    (erg)))

It it tries to cps-transform a continuation that contains a (throw 'done #) 
because erg is a defun/cc.

My patch is in 
smoof-ra at elder-gods.org--stuff/arnesi--mine--1.4
which is in the archive 
http://elder-gods.org/~larry/tlastuff

If that doesn't work I can just send a diff to the list.

	--larry