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


On Fri, Jul 30, 2010 at 7:38 AM, Stas Boukarev <> 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)

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:
Ecls-list mailing list

Instituto de Física Fundamental, CSIC
c/ Serrano, 113b, Madrid 28006 (Spain)