[Ecls-list] multiple-value-bind strange behaviour

[Stas Boukarev]

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.