[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Axiom-developer] $traceflag
From: |
Gabriel Dos Reis |
Subject: |
Re: [Axiom-developer] $traceflag |
Date: |
11 Aug 2007 13:40:31 -0500 |
Gabriel Dos Reis <address@hidden> writes:
| Tim --
|
| I believe the use of $TRACEFLAG in the routine S-PROCESS (spad.lisp)
| is a typo for |$TraceFlag|.
Fixed with this.
Applied to Axiom.silver.
-- Gaby
2007-08-11 Gabriel Dos Reis <address@hidden>
* src/interp/spad.lisp.pamphlet (S-PROCESS): Fix typo.
*** src/interp/spad.lisp.pamphlet (revision 21590)
--- src/interp/spad.lisp.pamphlet (local)
***************
*** 422,428 ****
(|$LocalFrame| '((NIL))))
(prog ((CURSTRM CUROUTSTREAM) |$s| |$x| |$m| u)
(declare (special CURSTRM |$s| |$x| |$m| CUROUTSTREAM))
! (SETQ $TRACEFLAG T)
(if (NOT X) (RETURN NIL))
(setq X (if $BOOT (DEF-RENAME (|new2OldLisp| X))
(|parseTransform| (|postTransform| X))))
--- 422,428 ----
(|$LocalFrame| '((NIL))))
(prog ((CURSTRM CUROUTSTREAM) |$s| |$x| |$m| u)
(declare (special CURSTRM |$s| |$x| |$m| CUROUTSTREAM))
! (SETQ |$TraceFlag| T)
(if (NOT X) (RETURN NIL))
(setq X (if $BOOT (DEF-RENAME (|new2OldLisp| X))
(|parseTransform| (|postTransform| X))))