From e8d67b0712ae24a8a6975e8c5047cbd73cc177e8 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 6 Sep 2007 14:07:19 +0000 Subject: * 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. --- src/interp/patches.lisp.pamphlet | 23 ----------------------- 1 file changed, 23 deletions(-) (limited to 'src/interp/patches.lisp.pamphlet') 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) -- cgit v1.2.3