* 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.

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") )