diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-11-03 08:31:46 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-11-03 08:31:46 +0000 |
| commit | a12a4527c1d48988f48b4656c3a46ab91ab4e5e2 (patch) | |
| tree | a75ebae2b6d05a13ecbb1ce1904238b0b567305a /src/interp/macros.lisp | |
| parent | 58820ffb5e4e1ba4de8840a4883a1e42857a1a2d (diff) | |
| download | open-axiom-a12a4527c1d48988f48b4656c3a46ab91ab4e5e2.tar.gz | |
* interp/postpar.boot (postcheckTarget): Likewise.
(isPackageType): Likewise.
* interp/lisplib.boot (getSlotFromDomain): Remove.
* interp/macros.lisp (|saySpadMsg|): Remove.
* interp/vmlisp.lisp (qsetq): Remove.
(STATEP, FUNARGP, PAPPP): Likewise.
(LISTOFQUOTES, LISTOFFREES): Likewise.
Diffstat (limited to 'src/interp/macros.lisp')
| -rw-r--r-- | src/interp/macros.lisp | 10 |
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 |