a compiler bug

[harrisr@turing.cs.rpi.edu (Richard Harris)]

There is a bug in akcl-1-313 (and maybe in every earlier AKCL too)
that prevents the new PCL ("2/6/90  A PCL for the 90's (beta)") from 
compiling.  Below is a simplified test case for this bug.
The first call to z returns 1, but the second call returns NIL.

(defun z ()
  (let ((v 1))
    (labels ((f (&aux r)
               (multiple-value-prog1
                   nil
                 (setq r (g)))
               r)
             (g ()
               v))
      (f))))
(z)
(proclaim '(optimize (safety 0) (space 0) (speed 3)))
(compile 'z)
(z)

 ----
 Rick Harris