Changeset 8644


Ignore:
Timestamp:
02/26/05 17:49:57 (16 years ago)
Author:
piso
Message:

BACKTRACE-COMMAND: bind *PRINT-STRUCTURE* to NIL.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/top-level.lisp

    r8270 r8644  
    11;;; top-level.lisp
    22;;;
    3 ;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: top-level.lisp,v 1.40 2004-12-19 16:53:41 piso Exp $
     3;;; Copyright (C) 2003-2005 Peter Graves
     4;;; $Id: top-level.lisp,v 1.41 2005-02-26 17:49:57 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2020;;; Adapted from SB-ACLREPL (originally written by Kevin Rosenberg).
    2121
    22 (in-package "SYSTEM")
     22(in-package #:system)
    2323
    2424(defvar *inspect-break* nil)
     
    2828(defvar *inspected-object* nil)
    2929
    30 (in-package "TOP-LEVEL")
     30(in-package #:top-level)
    3131
    3232(import '(sys::%format sys::list-traced-functions sys::trace-1 sys::untrace-1 sys::untrace-all))
     
    7171        (n 0))
    7272    (with-standard-io-syntax
    73       (let ((*print-pretty* t))
     73      (let ((*print-pretty* t)
     74            (*print-readably* nil)
     75            (*print-structure* nil))
    7476        (dolist (frame *saved-backtrace*)
    7577          (fresh-line *debug-io*)
Note: See TracChangeset for help on using the changeset viewer.