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 wrote:
> Consider the following file:
> (defun foo ())
>
> (defun location (function)
> (multiple-value-bind (file pos)
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
--
