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

1 files changed, 2 insertions, 17 deletions

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