diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-11-16 00:00:34 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-11-16 00:00:34 +0000 |
| commit | eb3d72e5b0528903fd90d18011fdc400300d9e4f (patch) | |
| tree | 4dd3ae8eb03d13c0be798d3b72e7c9fd358518c1 /src/interp/spad.lisp | |
| parent | afc7f65009d1bc682bc37bd96ddf5222ac37cc5b (diff) | |
| download | open-axiom-eb3d72e5b0528903fd90d18011fdc400300d9e4f.tar.gz | |
* interp/i-syscmd.boot: Remove dead code.
* interp/spad.lisp: Likewise.
Diffstat (limited to 'src/interp/spad.lisp')
| -rw-r--r-- | src/interp/spad.lisp | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/interp/spad.lisp b/src/interp/spad.lisp index 14776731..a482848b 100644 --- a/src/interp/spad.lisp +++ b/src/interp/spad.lisp @@ -192,22 +192,19 @@ (Q (/RQ)) ('T (/RF)) ) (FLAG |boot-NewKEY| 'KEY) - (|terminateSystemCommand|) - (|spadPrompt|)) + (|terminateSystemCommand|)) (defun /EDIT (L) (SETQ /EDITFILE L) (/EF) - (|terminateSystemCommand|) - (|spadPrompt|)) + (|terminateSystemCommand|)) (defun /COMPINTERP (L OPTS) (SETQ /EDITFILE (/MKINFILENAM L)) (COND ((EQUAL OPTS "rf") (/RF)) ((EQUAL OPTS "rq") (/RQ)) ('T (/RQ-LIB))) - (|terminateSystemCommand|) - (|spadPrompt|)) + (|terminateSystemCommand|)) (defun CPSAY (X) (let (n) (if (EQ 0 (setq N (|runCommand| X))) NIL (PRINT N)))) |