From 43eb220cc23f10a7b597d0354ccd4e7e5ea5ffd1 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 21 May 2012 03:30:29 +0000
Subject: 	* interp/spad-parser.boot (parseSexpr1): Simplify. 
 (parseDara): Likewise.  Do not set LABLASOC. 	* interp/bootlex.lisp
 (PRINT-DEFUN): Remove. 	(TRANSLABEL): Likewise. 	(TRANSLABEL1):
 Likewise. 	* interp/preparse.lisp (LABLASOC): Likewise.

---
 src/interp/bootlex.lisp | 31 -------------------------------
 1 file changed, 31 deletions(-)

(limited to 'src/interp/bootlex.lisp')

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))))
-
-- 
cgit v1.2.3