diff options
author | dos-reis <gdr@axiomatics.org> | 2007-09-12 22:44:16 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2007-09-12 22:44:16 +0000 |
commit | 00ce53963a1de13d5cd653176561cd63e63f8876 (patch) | |
tree | 5b7ad26aa514cdd42ad347f7ca2339083ebde472 /src/interp/macros.lisp.pamphlet | |
parent | 85b24b09dc2103e0d44b043c85f29bb26272a9ef (diff) | |
download | open-axiom-00ce53963a1de13d5cd653176561cd63e63f8876.tar.gz |
* 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.
Diffstat (limited to 'src/interp/macros.lisp.pamphlet')
-rw-r--r-- | src/interp/macros.lisp.pamphlet | 10 |
1 files changed, 0 insertions, 10 deletions
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 -*- ;; |