diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-09-06 14:07:19 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-09-06 14:07:19 +0000 |
| commit | e8d67b0712ae24a8a6975e8c5047cbd73cc177e8 (patch) | |
| tree | 4c6b49bc3036921ba69e284cb5176cd9bd8d5cec /src/interp/patches.lisp.pamphlet | |
| parent | a5e61a3197d718059d54ff3d77410d97554fb0af (diff) | |
| download | open-axiom-e8d67b0712ae24a8a6975e8c5047cbd73cc177e8.tar.gz | |
* patches.lisp.pamphlet (reset-highlight): Move to i-syscmd.boot.
(clear-highlight): Likewise.
(|spool|): Likewise.
* i-syscmd.boot.pamphlet (clearHighlight): Move from
patches.lisp.pamphlet. Rename from clear-highlight. Implement as
Boot code.
(resetHighlight): Move from patches.lisp.pamphlet. Rename from
clear-highlight. Implement as Boot code.
Diffstat (limited to 'src/interp/patches.lisp.pamphlet')
| -rw-r--r-- | src/interp/patches.lisp.pamphlet | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/src/interp/patches.lisp.pamphlet b/src/interp/patches.lisp.pamphlet index 0ca525ee..82977f1f 100644 --- a/src/interp/patches.lisp.pamphlet +++ b/src/interp/patches.lisp.pamphlet @@ -92,29 +92,6 @@ previous definition. `(if (is-console ,streamvar) (setq ,streamvar *terminal-io*))) -(defun clear-highlight () - (let ((|$displaySetValue| nil)) - (declare (special |$displaySetValue| |$saveHighlight| |$saveSpecialchars|)) - (setq |$saveHighlight| |$highlightAllowed| - |$highlightAllowed| nil) - (setq |$saveSpecialchars| |$specialCharacters|) - (|setOutputCharacters| '(|plain|)))) - -(defun reset-highlight () - (setq |$highlightAllowed| |$saveHighlight|) - (setq |$specialCharacters| |$saveSpecialchars|)) - -(defun |spool| (filename) - (cond ((null filename) - (dribble) (TERPRI) - (reset-highlight)) - ((probe-file (car filename)) - (error (format nil "file ~a already exists" (car filename)))) - (t (dribble (car filename)) - (TERPRI) - (clear-highlight)) - )) - (defun |cd| (args) (cond ((null args) #+(and :lucid :ibm/370) |