diff options
author | dos-reis <gdr@axiomatics.org> | 2007-09-12 22:59:26 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2007-09-12 22:59:26 +0000 |
commit | 268e1d951b28b128781ba8f4851149da0be458d9 (patch) | |
tree | 57cdb6d785aa4d4e4ff328c5097a304ee958be3c /src | |
parent | 993fb4527de00eac33c829de67924cbe3056c3c5 (diff) | |
download | open-axiom-268e1d951b28b128781ba8f4851149da0be458d9.tar.gz |
* unlisp.lisp.pamphlet: Import sys-macros.
(|CsetString|): Use code-char.
(|WriteLispExpr|): Remove. It is unused.
(|ReadLispExpr|): Likewise.
(|LispCompileFileQuietlyToObject|): Likewise.
* Makefile.pamphlet (unlisp.$(FASLEXT)): New rule.
Diffstat (limited to 'src')
-rw-r--r-- | src/interp/ChangeLog | 9 | ||||
-rw-r--r-- | src/interp/Makefile.in | 3 | ||||
-rw-r--r-- | src/interp/Makefile.pamphlet | 3 | ||||
-rw-r--r-- | src/interp/unlisp.lisp.pamphlet | 19 |
4 files changed, 17 insertions, 17 deletions
diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog index d5e66e73..2c9c2332 100644 --- a/src/interp/ChangeLog +++ b/src/interp/ChangeLog @@ -1,5 +1,14 @@ 2007-09-12 Gabriel Dos Reis <gdr@cs.tamu.edu> + * unlisp.lisp.pamphlet: Import sys-macros. + (|CsetString|): Use code-char. + (|WriteLispExpr|): Remove. It is unused. + (|ReadLispExpr|): Likewise. + (|LispCompileFileQuietlyToObject|): Likewise. + * Makefile.pamphlet (unlisp.$(FASLEXT)): New rule. + +2007-09-12 Gabriel Dos Reis <gdr@cs.tamu.edu> + * bits.lisp: New. Import boot-pkg. * bits.lisp.pamphlet: Move content to bits.lisp. Remove. * Makefile.pamphlet (bits.$(FASLEXT)): New rule. diff --git a/src/interp/Makefile.in b/src/interp/Makefile.in index 445c20e5..ebfa61fa 100644 --- a/src/interp/Makefile.in +++ b/src/interp/Makefile.in @@ -477,6 +477,9 @@ database.date: $(AUTO)/%.$(FASLEXT): %.$(FASLEXT) $(INSTALL) $< $@ +unlisp.$(FASLEXT): unlisp.lisp sys-macros.$(FASLEXT) + $(BOOTSYS) -- --compile --output=$@ --load-directory=. $< + cstream.$(FASLEXT): cstream.clisp sys-macros.$(FASLEXT) $(BOOTSYS) -- --compile --output=$@ --load-directory=. $< diff --git a/src/interp/Makefile.pamphlet b/src/interp/Makefile.pamphlet index 61d396de..ccde669f 100644 --- a/src/interp/Makefile.pamphlet +++ b/src/interp/Makefile.pamphlet @@ -1972,6 +1972,9 @@ distclean-local: clean-local $(AUTO)/%.$(FASLEXT): %.$(FASLEXT) $(INSTALL) $< $@ +unlisp.$(FASLEXT): unlisp.lisp sys-macros.$(FASLEXT) + $(BOOTSYS) -- --compile --output=$@ --load-directory=. $< + cstream.$(FASLEXT): cstream.clisp sys-macros.$(FASLEXT) $(BOOTSYS) -- --compile --output=$@ --load-directory=. $< diff --git a/src/interp/unlisp.lisp.pamphlet b/src/interp/unlisp.lisp.pamphlet index 80b854eb..6123b927 100644 --- a/src/interp/unlisp.lisp.pamphlet +++ b/src/interp/unlisp.lisp.pamphlet @@ -88,6 +88,7 @@ The following functions are provided: <<*>>= <<license>> +(IMPORT-MODULE "sys-macros") (in-package "BOOT") (defun |OsRunProgram| (program &rest args) @@ -314,9 +315,6 @@ The following functions are provided: (eval expr) (compile (second expr)) ) -(defun |LispCompileFileQuietlyToObject| (source object) - (compile-file source :output-file object :messages nil :warnings nil)) - (defun |LispLoadFileQuietly| (object) (load object :verbose nil :print nil)) @@ -432,13 +430,6 @@ The following functions are provided: ;;; Lucid 1.01 bug: Must flush output after each write or else ;;; strange errors arise from invalid buffer reuse. -(defun |WriteLispExpr| (expr &optional (outstream *standard-output*)) - (let ((*package* (find-package "USER"))) - (declare (special *package*)) - (write expr :stream outstream - :level nil :length nil :pretty nil :escape 't ) - (finish-output outstream) )) - (defmacro |WriteByte| (byte &rest outstream) `(write-byte ,byte ,@outstream) ) @@ -464,12 +455,6 @@ The following functions are provided: (finish-output outstream) ) - -(defun |ReadLispExpr| (&optional (instream *standard-input*)) - (let ((*package* (find-package "USER"))) - (declare (special *package*)) - (read instream nil nil) )) - (defmacro |ReadByte| (instream) `(read-byte ,instream nil nil) ) @@ -869,7 +854,7 @@ The following functions are provided: (len (length cset))) (do ((i 0 (+ 1 i))) ((= i len)) - (if (eql 1 (sbit cset i)) (push (string (int-char i)) chars)) ) + (if (eql 1 (sbit cset i)) (push (string (code-char i)) chars)) ) (apply #'concatenate (cons 'string (nreverse chars))) )) (defvar |NumericCset| (|Cset| "0123456789") ) |