sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

cmp: remove unused variables: *compile-time-too*, *not-compile-time*

Browse source 
First one is never bound to T and second one is not referenced at
all. *compilation-time-too* when T was interpreted to evaluate forms
before compiling them (independent of eval-when).
This commit is contained in:
Daniel Kochmański 2019-11-24 11:01:16 +01:00
parent 57e09c89b1
commit 241f3ed172
2 changed files with 11 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpglobals.lsp
View file

@ -235,9 +235,6 @@ slashes before special characters.")
in the translated C/C++ file. Notice that it is unspecified where these
lines are inserted, but the order is preserved")
(defvar *compile-time-too* nil)
(defvar *not-compile-time* nil)
(defvar *permanent-data* nil) ; detemines whether we use *permanent-objects*
; or *temporary-objects*
(defvar *permanent-objects* nil) ; holds { ( object (VV vv-index) ) }*
@ -326,7 +323,6 @@ be deleted if they have been opened with LoadLibrary.")
(*global-entries* nil)
(*undefined-vars* nil)
(*top-level-forms* nil)
(*compile-time-too* nil)
(*clines-string-list* '())
(*inline-blocks* 0)
(*open-c-braces* 0)

26
src/cmp/cmptop.lsp
View file

@ -37,7 +37,8 @@
(when (member fun *toplevel-forms-to-print*)
(print-current-form))
(cond
((consp fun) (t1ordinary form))
((consp fun)
(t1ordinary form))
((not (symbolp fun))
(cmperr "~s is illegal function." fun))
((eq fun 'QUOTE)
@ -94,8 +95,7 @@
(defun emit-local-funs ()
(declare (si::c-local))
;; Local functions and closure functions
(do ((*compile-time-too* nil)
(*compile-toplevel* nil))
(do ((*compile-toplevel* nil))
;; repeat until t3local-fun generates no more
((eq *emitted-local-funs* *local-funs*))
;; scan *local-funs* backwards
@ -273,12 +273,13 @@
(execute-flag nil))
(dolist (situation (car args))
(case situation
((CL:LOAD :LOAD-TOPLEVEL) (setq load-flag t))
((CL:COMPILE :COMPILE-TOPLEVEL) (setq compile-flag t))
((CL:LOAD :LOAD-TOPLEVEL)
(setq load-flag t))
((CL:COMPILE :COMPILE-TOPLEVEL)
(setq compile-flag t))
((CL:EVAL :EXECUTE)
(if *compile-toplevel*
(setq compile-flag (or *compile-time-too* compile-flag))
(setq execute-flag t)))
(unless *compile-toplevel*
(setq execute-flag t)))
(otherwise (cmperr "The EVAL-WHEN situation ~s is illegal."
situation))))
(cond ((not *compile-toplevel*)
@ -484,9 +485,7 @@
(otherwise "cl_object ")))
(defun t1ordinary (form)
(when *compile-time-too* (cmp-eval form))
(let ((*compile-toplevel* nil)
(*compile-time-too* nil))
(let ((*compile-toplevel* nil))
(add-load-time-values (make-c1form* 'ORDINARY :args (c1expr form)))))
(defun p1ordinary (c1form assumptions form)
@ -797,10 +796,7 @@
;;;
(defun t1fset (args)
(let ((form `(si::fset ,@args)))
(when *compile-time-too*
(cmp-eval form))
(let ((*compile-toplevel* nil)
(*compile-time-too* nil))
(let ((*compile-toplevel* nil))
(add-load-time-values (c1fset form)))))
(defun c1fset (form)