[Ecls-list] multiple values bug

[Stelian Ionescu]

Test case(obtained from swank::swank-compiler):

(defun my-values ()
  (values 23 456))

(defun m-v-bug ()
  (multiple-value-bind (result usecs)
      (with-simple-restart (abort "Abort SLIME compilation.")
        (my-values))
    (values result usecs)))

SWANK> (m-v-bug-1)
23
NIL

Expected results: (values 23 456) instead of (values 23 nil)

the bug occurrs only in compiled code, and if I replace the call to
my-values with (values 23 456) directly it works. the test were done
with ECL HEAD, compiled on Linux/x86

-- 
Stelian Ionescu a.k.a. fe[nl]ix
Quidquid latine dictum sit, altum videtur.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 197 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/ecl-devel/attachments/20080518/342b0ec2/attachment.sig>