From b4512335b01d5d2cd345f0b95ca08fb5191cad03 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 3 Sep 2007 11:22:38 +0000 Subject: * bootfuns.lisp.pamphlet ($TOP_LEVEL): Move to sys-globals.boot. ($TOKSTACK): Likewise. ($function): Likewise. ($FUNNAME): Likewise. ($FunName_Tail): Likewise. ($lastprefix): Likewise. ($linestack): Likewise. ($maxlinenumber): Likewise. ($OLDLINE): Likewise. ($SPAD): Likewise. ($delay): Move to debug.lisp.pamphlet. ($LINENUMBER): Likewise. ($Directory): Remove. ($top_stack): Remove. ($DISPLAY): Likewise. (|$gauss01|): Likewise. ($NBOOT): Likewise. ($NEWLINSTACK): Likewise. ($num_of_meta_errors): Move to metalex.lisp.pamphlet. * setq.lisp.pamphlet ($TOP_LEVEL): Don't set here. ($DISPLAY): Likewise. ($FUNNAME): Likewise. ($FUNNAME_TAIL): Likewise. (|$gauss01|): Likewise. ($LASTPREFIX): Likewise. ($NBOOT): Likewise. ($OLDLINE): Likewise. * spad.lisp.pamphlet ($linestack): Likewise. ($maxlinenumber): Likewise. (|New,ENTRY,1|): Don't bind here. --- src/interp/debug.lisp.pamphlet | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/interp/debug.lisp.pamphlet') diff --git a/src/interp/debug.lisp.pamphlet b/src/interp/debug.lisp.pamphlet index 23929b52..48c415fa 100644 --- a/src/interp/debug.lisp.pamphlet +++ b/src/interp/debug.lisp.pamphlet @@ -188,6 +188,8 @@ exit (rds ifile) (declare (special CUROUTSTREAM)) "Called from compConLib1 (see LISPLIB BOOT) to bind CUROUTSTREAM." (/D-2 FN INFILE CUROUTSTREAM OP EDITFLAG TRACEFLAG)) + +(defparameter $linenumber 0) (DEFUN /D-2 (FN INFILE OUTPUTSTREAM OP EDITFLAG TRACEFLAG) (declare (special OUTPUTSTREAM)) @@ -1118,6 +1120,7 @@ EXAMINE (SETQ RECNO (NOTE INPUTSTREAM)) (defvar |$oldTime| 0) (defvar |$timerOn| t) +(defvar $delay 0) (defun |startTimer| () (SETQ $delay (PLUS $delay (DIFFERENCE (TEMPUS-FUGIT) |$oldTime|))) -- cgit v1.2.3