From 268e1d951b28b128781ba8f4851149da0be458d9 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Wed, 12 Sep 2007 22:59:26 +0000 Subject: * 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. --- src/interp/unlisp.lisp.pamphlet | 19 ++----------------- 1 file changed, 2 insertions(+), 17 deletions(-) (limited to 'src/interp/unlisp.lisp.pamphlet') 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: <<*>>= <> +(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") ) -- cgit v1.2.3