From 00ce53963a1de13d5cd653176561cd63e63f8876 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Wed, 12 Sep 2007 22:44:16 +0000 Subject: * Makefile.pamphlet (cstream.$(FASLEXT)): New rule. * cstream.boot.pamphlet: Import sys-macros. * sys-macros.lisp (|shoeConsole|): Move from macros.lisp.pamphlet. (|shoeInputFile|): Likewise. (|shoeread-line|): Likewise. --- src/interp/macros.lisp.pamphlet | 10 ---------- 1 file changed, 10 deletions(-) (limited to 'src/interp/macros.lisp.pamphlet') diff --git a/src/interp/macros.lisp.pamphlet b/src/interp/macros.lisp.pamphlet index e1a67392..131c80b8 100644 --- a/src/interp/macros.lisp.pamphlet +++ b/src/interp/macros.lisp.pamphlet @@ -1007,16 +1007,6 @@ terminals and empty or at-end files. In Common Lisp, we must assume record size ((equal n 3) (remhash key ht)) ('t (hput ht key n)) ) nil)) - -(defmacro |shoeConsole| (line) - `(write-line ,line *terminal-io*)) - -(defmacro |shoeInputFile| (filespec) - `(open ,filespec :direction :input :if-does-not-exist nil)) - -(defmacro |shoeread-line| (st) - `(read-line ,st nil nil)) - ;; ;; -*- Record Structures -*- ;; -- cgit v1.2.3