Skip to content
Snippets Groups Projects
Commit 9f94756e authored by gerd's avatar gerd
Browse files

* src/lisp/backtrace.c (print_entry_name): Print symbol package,

	print strings as such.
parent c3fd05a9
No related branches found
No related tags found
No related merge requests found
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/backtrace.c,v 1.6 2003/07/25 17:57:01 gerd Exp $ /* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/backtrace.c,v 1.7 2003/07/28 13:31:46 gerd Exp $
* *
* Simple backtrace facility. More or less from Rob's lisp version. * Simple backtrace facility. More or less from Rob's lisp version.
*/ */
...@@ -278,13 +278,24 @@ print_entry_name (lispobj name) ...@@ -278,13 +278,24 @@ print_entry_name (lispobj name)
if (TypeOf (*object) == type_SymbolHeader) if (TypeOf (*object) == type_SymbolHeader)
{ {
struct symbol *symbol = (struct symbol *) object; struct symbol *symbol = (struct symbol *) object;
struct vector *string;
if (symbol->package != NIL)
{
struct instance *pkg = (struct instance *) PTR (symbol->package);
lispobj pkg_name = pkg->slots[2];
string = (struct vector *) PTR (pkg_name);
printf ("%s::", (char *) string->data);
}
object = (lispobj *) PTR (symbol->name); object = (lispobj *) PTR (symbol->name);
string = (struct vector *) object;
printf ("%s", (char *) string->data);
} }
else if (TypeOf (*object) == type_SimpleString)
if (TypeOf (*object) == type_SimpleString)
{ {
struct vector *string = (struct vector *) object; struct vector *string = (struct vector *) object;
printf ("%s", (char *) string->data); printf ("\"%s\"", (char *) string->data);
} }
else else
printf ("<??? type %d>", TypeOf (*object)); printf ("<??? type %d>", TypeOf (*object));
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment