Changeset 5162


Ignore:
Timestamp:
12/16/03 14:38:11 (17 years ago)
Author:
piso
Message:

TPL::*BREAK-LEVEL* => EXT:*DEBUG-LEVEL*

Location:
trunk/j/src/org/armedbear/lisp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/debug.lisp

    r5131 r5162  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: debug.lisp,v 1.11 2003-12-14 17:16:04 piso Exp $
     4;;; $Id: debug.lisp,v 1.12 2003-12-16 14:37:57 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2020(in-package "EXTENSIONS")
    2121
    22 (export '*debug-condition*)
     22(export '(*debug-condition* *debug-level*))
    2323
    2424(defvar *debug-condition* nil)
     25
     26(defvar *debug-level* 0)
    2527
    2628(in-package "SYSTEM")
    2729
    2830(defun debug-loop ()
    29   (let ((tpl::*break-level* (1+ tpl::*break-level*)))
     31  (let ((*debug-level* (1+ *debug-level*)))
    3032  (fresh-line *debug-io*)
    3133  (%format *debug-io* "Type :CONTINUE to return from break or :RESET to return to top level.~%")
  • trunk/j/src/org/armedbear/lisp/top-level.lisp

    r5132 r5162  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: top-level.lisp,v 1.20 2003-12-14 17:17:34 piso Exp $
     4;;; $Id: top-level.lisp,v 1.21 2003-12-16 14:38:11 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2323
    2424(import 'sys::%format)
    25 
    26 (defvar *break-level* 0)
    2725
    2826(defparameter *command-char* #\:)
     
    4038(defun repl-prompt-fun (stream)
    4139  (fresh-line stream)
    42   (when (> *break-level* 0)
    43     (%format stream "[~D] " *break-level*))
     40  (when (> *debug-level* 0)
     41    (%format stream "[~D] " *debug-level*))
    4442  (%format stream "~A(~D): " (prompt-package-name) *cmd-number*))
    4543
     
    7472
    7573(defun continue-command (ignored)
    76   (if (> *break-level* 0)
     74  (if (> *debug-level* 0)
    7775      (throw 'continue-catcher nil)))
    7876
Note: See TracChangeset for help on using the changeset viewer.