mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 15:40:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

The debugger outputs the file information of interpreted functions, which now contains load-truename instead of load-pathname

Browse source
This commit is contained in:
jgarcia 2008-04-22 13:02:45 +00:00
parent b4e1916be1
commit 5243018392
3 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/compiler.d
View file

@ -144,7 +144,7 @@ asm_end(cl_index beginning) {
cl_object bytecodes;
cl_index code_size, data_size, i;
cl_opcode *code;
cl_object file = SYM_VAL(@'*load-pathname*');
cl_object file = SYM_VAL(@'*load-truename*');
cl_object position = SYM_VAL(@'ext::*load-position*');
/* Save bytecodes from this session in a new vector */

2
src/lsp/config.lsp.in
View file

@ -46,7 +46,7 @@ Returns, as a string, the location of the machine on which ECL runs."
(defun lisp-implementation-version ()
"Args:()
Returns the version of your ECL as a string."
"@PACKAGE_VERSION@ (CVS 2008-04-22 14:29)")
"@PACKAGE_VERSION@ (CVS 2008-04-22 15:00)")
(defun machine-type ()
"Args: ()

12
src/lsp/top.lsp
View file

@ -684,13 +684,19 @@ under certain conditions; see file 'Copyright' for details.")
(format *debug-io* " FRS[~d]: ---> IHS[~d],BDS[~d]~%"
i (frs-ihs i) (frs-bds i)))
(defun break-where (&aux (fname (ihs-fname *ihs-current*)))
(defun break-where ()
(if (<= *tpl-level* 0)
(format t "Top level.~%")
(format t "Broken at ~:@(~S~).~%" (ihs-fname *ihs-current*))))
(tpl-print-current)))
(defun tpl-print-current ()
(format t "Broken at ~:@(~S~)." (ihs-fname *ihs-current*))
(let ((name (ihs-fname *ihs-current*)))
(format t "Broken at ~:@(~S~)." name)
(when (fboundp name)
(multiple-value-bind (file position)
(si::bc-file (fdefinition name))
(when file
(format t " File: ~S (Form #~D)" file position)))))
(values))
(defun tpl-hide (fname)