diff options
Diffstat (limited to 'src/interp/patches.lisp')
| -rw-r--r-- | src/interp/patches.lisp | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/interp/patches.lisp b/src/interp/patches.lisp index a67c10c3..cfbd9d0f 100644 --- a/src/interp/patches.lisp +++ b/src/interp/patches.lisp @@ -69,21 +69,21 @@ #+(and :GCL :IEEE-FLOATING-POINT ) (setq system:*print-nans* T) -(defun /RF (&rest foo &aux (Echo-Meta 'T)) - (declare (special Echo-Meta)) +(defun /RF (&rest foo &aux (|$Echo| 'T)) + (declare (special |$Echo|)) (/RF-1 nil)) -(defun /RQ (&rest foo &aux (Echo-Meta nil)) - (declare (special Echo-Meta)) +(defun /RQ (&rest foo &aux (|$Echo| nil)) + (declare (special |$Echo|)) (/RF-1 nil)) -(defun |/RQ,LIB| (&rest foo &aux (Echo-Meta nil) ($LISPLIB T)) - (declare (special Echo-Meta $LISPLIB)) +(defun |/RQ,LIB| (&rest foo &aux (|$Echo| nil) ($LISPLIB T)) + (declare (special |$Echo| $LISPLIB)) (/RF-1 nil)) (defun /RF-1 (ignore) (declare (ignore ignore)) - (declare (special echo-meta)) + (declare (special |$Echo|)) (let* ((input-file (make-input-filename /EDITFILE)) (lfile ()) (type (pathname-type input-file))) @@ -96,7 +96,7 @@ ((string= type "lisp") (load input-file)) ((string= type "bbin") (load input-file)) ((string= type "input") - (|ncINTERPFILE| input-file Echo-Meta)) + (|ncINTERPFILE| input-file |$Echo|)) (t (spad input-file))))) (defun /EF (&rest foo) |