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

/* $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.

 */

  if (TypeOf (*object) == type_SymbolHeader)

    {

      struct symbol *symbol = (struct symbol *) object;

      object = (lispobj *) PTR (symbol->name);

      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);

	}

  if (TypeOf (*object) == type_SimpleString)

      object = (lispobj *) PTR (symbol->name);

      string = (struct vector *) object;

      printf ("%s", (char *) string->data);

    }

  else if (TypeOf (*object) == type_SimpleString)

    {

      struct vector *string = (struct vector *) object;

      printf ("%s", (char *) string->data);

      printf ("\"%s\"", (char *) string->data);

    }

  else

    printf ("<??? type %d>", TypeOf (*object));