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
