This is not a problem with multiple-value-bind. The proclamation for compiled-function-file was wrong. I fixed it today.

Juanjo

On Fri, Jul 30, 2010 at 7:38 AM, Stas Boukarev <stassats@gmail.com> wrote:
Consider the following file:
(defun foo ())

(defun location (function)
 (multiple-value-bind (file pos) (ext:compiled-function-file function)
   (list file pos)))

Load it:
> (load (compile-file "foo"))
> (location #'foo)
("foo.lisp" NIL)
> (ext:compiled-function-file #'foo)
"foo.lisp"
0

--
With Best Regards, Stas.

------------------------------------------------------------------------------
The Palm PDK Hot Apps Program offers developers who use the
Plug-In Development Kit to bring their C/C++ apps to Palm for a share
of $1 Million in cash or HP Products. Visit us here for more details:
http://p.sf.net/sfu/dev2dev-palm
_______________________________________________
Ecls-list mailing list
Ecls-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/ecls-list



--
Instituto de Física Fundamental, CSIC
c/ Serrano, 113b, Madrid 28006 (Spain)
http://juanjose.garciaripoll.googlepages.com