diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-08-11 23:39:57 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-08-11 23:39:57 +0000 |
| commit | 9db6b61081ac23786139c664988260b81195378e (patch) | |
| tree | 5f0333cc5aa17be7576ff293031270c2dac55b62 /src/interp/debug.lisp | |
| parent | 8a33c76f87483d4b01e666c0013e21b3cf3b7266 (diff) | |
| download | open-axiom-9db6b61081ac23786139c664988260b81195378e.tar.gz | |
* interp/obey.lisp: Remove.
* interp/Makefile.pamphlet (OBJS): Don't include obey.$(FASLEXT).
* interp/br-data.boot: Replace OBEY with runCommand.
* interp/br-saturn.boot: Likewise.
* interp/br-search.boot: Likewise.
* interp/c-doc.boot: Likewise.
* interp/compat.boot: Likewise.
* interp/debug.lisp: Likewise.
* interp/g-util.boot: Likewise.
* interp/ht-root.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/patches.lisp: Likewise.
* interp/spad.lisp: Likewise.
* interp/util.lisp: Likewise.
* interp/vmlisp.lisp: Likewise.
Diffstat (limited to 'src/interp/debug.lisp')
| -rw-r--r-- | src/interp/debug.lisp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/debug.lisp b/src/interp/debug.lisp index 78160568..1e851a90 100644 --- a/src/interp/debug.lisp +++ b/src/interp/debug.lisp @@ -107,7 +107,7 @@ (PROG (TO OPTIONL OPTIONS FNL INFILE OUTSTREAM FN ) (declare (special fn infile outstream )) (if (member '? L :test #'eq) - (RETURN (OBEY "EXEC SPADEDIT /C TELL"))) + (RETURN (|runCommand| "EXEC SPADEDIT /C TELL"))) (SETQ OPTIONL (/OPTIONS L)) (SETQ FNL (TRUNCLIST L OPTIONL)) (SETQ OPTIONS (OPTIONS2UC OPTIONL)) @@ -192,7 +192,7 @@ (SETQ INPUTSTREAM (DEFSTREAM EDINFILE 'INPUT)) (|sayBrightly| (LIST " editing file" '|%b| (|namestring| EDINFILE) '|%d|)) - (OBEY + (|runCommand| (STRCONC (|makeAbsoluteFilename| "/lib/SPADEDFN ") (|namestring| EDINFILE) @@ -453,7 +453,7 @@ EXAMINE (SETQ RECNO (NOTE |$InputStream|)) (DEFUN /TRACE-0 (L) (if (member '? L :test #'eq) - (OBEY "EXEC NORMEDIT TRACE TELL") + (|runCommand| "EXEC NORMEDIT TRACE TELL") (let* ((options (/OPTIONS L)) (FNL (TRUNCLIST L OPTIONS))) (/TRACE-1 FNL OPTIONS)))) @@ -641,7 +641,7 @@ EXAMINE (SETQ RECNO (NOTE |$InputStream|)) (DEFUN /UNTRACE-0 (L) (PROG (OPTIONL OPTIONS FNL) - (if (member '? L :test #'eq) (RETURN (OBEY "EXEC NORMEDIT TRACE TELL"))) + (if (member '? L :test #'eq) (RETURN (|runCommand| "EXEC NORMEDIT TRACE TELL"))) (SETQ OPTIONL (/OPTIONS L)) (SETQ FNL (TRUNCLIST L OPTIONL)) (SETQ OPTIONS (if OPTIONL (CAR OPTIONL))) @@ -852,7 +852,7 @@ EXAMINE (SETQ RECNO (NOTE |$InputStream|)) (DEFMACRO /TRACELET (&rest L) `', (PROG (OPTIONL FNL) (if (member '? L :test #'eq) - (RETURN (OBEY (if (EQ (SYSID) 1) + (RETURN (|runCommand| (if (EQ (SYSID) 1) "EXEC NORMEDIT TRACELET TELL" "$COPY AZ8F:TRLET.TELL")) )) (SETQ OPTIONL (/OPTIONS L)) @@ -904,7 +904,7 @@ EXAMINE (SETQ RECNO (NOTE |$InputStream|)) (defmacro /EMBED (&rest L) `', (COND ((NOT L) (/EMBEDREPLY)) - ((member '? L :test #'eq) (OBEY "EXEC NORMEDIT EMBED TELL")) + ((member '? L :test #'eq) (|runCommand| "EXEC NORMEDIT EMBED TELL")) ((EQ 2 (LENGTH L)) (/EMBED-1 (CAR L) (CADR L))) ((MOAN "IMPROPER USE OF /EMBED")))) |