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

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.