aboutsummaryrefslogtreecommitdiff
path: root/src/interp/macros.lisp.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2007-09-16 06:36:41 +0000
committerdos-reis <gdr@axiomatics.org>2007-09-16 06:36:41 +0000
commit6a34e77488a1085bfb939eb99d6bae18f3654d40 (patch)
treec3ab9ab5367fc173da8888daef737fffd2f8d60c /src/interp/macros.lisp.pamphlet
parent91fd7baaf6d987505fe5f78cb6976cc6c42bb22c (diff)
downloadopen-axiom-6a34e77488a1085bfb939eb99d6bae18f3654d40.tar.gz
* macros.lisp.pamphlet (CROAK): Move to diagnostics.boot.
(SAY): Likewise. (MESSAGEPRINT): Likewise. (MESSAGEPRINT-1): Likewise. (MESSAGEPRINT-2): Likewise. (|shoeConsole|): Move to sys-macros.lisp. (|shoeInputFile|): Likewise. (|shoeread-line|): Likewise. (ELEMN): Move to fnewmeta.lisp.pamphlet.
Diffstat (limited to 'src/interp/macros.lisp.pamphlet')
-rw-r--r--src/interp/macros.lisp.pamphlet23
1 files changed, 0 insertions, 23 deletions
diff --git a/src/interp/macros.lisp.pamphlet b/src/interp/macros.lisp.pamphlet
index 131c80b8..c9234dcd 100644
--- a/src/interp/macros.lisp.pamphlet
+++ b/src/interp/macros.lisp.pamphlet
@@ -652,23 +652,6 @@ This version is needed so that (COLLECT (IN X Y) ... (RETURN 'JUNK))=>JUNK."
;; --------------------> NEW DEFINITION (override in msgdb.boot.pamphlet)
(DEFUN BRIGHTPRINT-0 (x) (MESSAGEPRINT-1 X))
-(defun SAY (&rest x) (progn (MESSAGEPRINT X) (TERPRI)))
-
-(DEFUN MESSAGEPRINT (X) (mapc #'messageprint-1 X))
-
-(DEFUN MESSAGEPRINT-1 (X)
- (COND ((OR (EQ X '|%l|) (EQUAL X "%l")) (TERPRI))
- ((STRINGP X) (PRINC X))
- ((IDENTP X) (PRINC X))
- ((ATOM X) (PRINC X))
- ((PRINC "(") (MESSAGEPRINT-1 (CAR X))
- (MESSAGEPRINT-2 (CDR X)) (PRINC ")"))))
-
-(DEFUN MESSAGEPRINT-2 (X)
- (if (ATOM X)
- (if (NULL X) NIL (progn (PRINC " . ") (MESSAGEPRINT-1 X)))
- (progn (PRINC " ") (MESSAGEPRINT-1 (CAR X)) (MESSAGEPRINT-2 (CDR X)))))
-
(DEFUN BLANKS (N &optional (stream *standard-output*)) "Print N blanks."
(do ((i 1 (the fixnum(1+ i))))
((> i N))(declare (fixnum i n)) (princ " " stream)))
@@ -714,12 +697,6 @@ terminals and empty or at-end files. In Common Lisp, we must assume record size
(SETQ *EOF* (STREAM-EOF STRM))
strm))
-; 24 ERRORS
-
-; 24.2 Specialized Error-Signalling Forms and Macros
-
-(defun CROAK (&rest x) (|systemError| x))
-
; 25 MISCELLANEOUS FEATURES
;; range tests and assertions