diff options
Diffstat (limited to 'src/interp/bootlex.lisp')
| -rw-r--r-- | src/interp/bootlex.lisp | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/src/interp/bootlex.lisp b/src/interp/bootlex.lisp index acb8d0e8..b7a22269 100644 --- a/src/interp/bootlex.lisp +++ b/src/interp/bootlex.lisp @@ -49,18 +49,6 @@ (IMPORT-MODULE "nlib") (in-package "BOOT") -; *** 1. BOOT file handling - -(defun print-defun (name body) - (let* ((sp (assoc 'compiler-output-stream optionlist)) - (st (if sp (cdr sp) |$OutputStream|))) - (if (and (|ioTerminal?| st) (symbolp name) (fboundp name) - (not (compiled-function-p (symbol-function name)))) - (compile name)) - (when (or |$PrettyPrint| (not (|ioTerminal?| st))) - (print-full body st) (force-output st)))) - - ; *** 3. BOOT Token Handling *** ;; -*- Parse an integer number -*- @@ -112,22 +100,3 @@ (setq val (get-integer-in-radix buf val)) (|advanceChar!|)) (|tokenInstall| val 'number token (size buf)))) - -; **** 4. BOOT token parsing actions - - -(defun TRANSLABEL (X AL) (TRANSLABEL1 X AL) X) - -(defun TRANSLABEL1 (X AL) - "Transforms X according to AL = ((<label> . Sexpr) ..)." - (COND ((simple-vector-p X) - (do ((i 0 (1+ i)) - (k (|maxIndex| x))) - ((> i k)) - (if (LET ((Y (LASSOC (ELT X I) AL))) (SETF (ELT X I) Y)) - (TRANSLABEL1 (ELT X I) AL)))) - ((ATOM X) NIL) - ((LET ((Y (LASSOC (FIRST X) AL))) - (if Y (setf (FIRST X) Y) (TRANSLABEL1 (CDR X) AL)))) - ((TRANSLABEL1 (FIRST X) AL) (TRANSLABEL1 (CDR X) AL)))) - |