aboutsummaryrefslogtreecommitdiff
path: root/src/interp/macros.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/macros.lisp')
-rw-r--r--src/interp/macros.lisp10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/macros.lisp b/src/interp/macros.lisp
index f8e69b67..3426d93a 100644
--- a/src/interp/macros.lisp
+++ b/src/interp/macros.lisp
@@ -431,9 +431,6 @@
(TERPRI out)
(force-output out))))
-(defun |saySpadMsg| (X)
- (if (NULL X) NIL (sayBrightly1 X |$algebraOutputStream|)))
-
(defun |sayALGEBRA| (X) "Prints on Algebra output stream."
(if (NULL X) NIL (sayBrightly1 X |$algebraOutputStream|)))
@@ -467,8 +464,11 @@
(DEFUN BLANKS (N &optional (stream |$OutputStream|))
"Print N blanks."
- (do ((i 1 (the fixnum(1+ i))))
- ((> i N))(declare (fixnum i n)) (princ " " stream)))
+ (declare (fixnum N))
+ (do ((i 1 (the fixnum(1+ i))))
+ ((> i N))
+ (declare (fixnum i))
+ (princ " " stream)))
; 23 FILE SYSTEM INTERFACE