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/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.~%")
Note: See TracChangeset for help on using the changeset viewer.