From 9db6b61081ac23786139c664988260b81195378e Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 11 Aug 2008 23:39:57 +0000 Subject: * 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. --- src/interp/debug.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/interp/debug.lisp') 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")))) -- cgit v1.2.3