From 364deb0551f4e62497aa7e7649be77bf47d478a4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Wed, 22 Nov 2023 11:23:22 +0100
Subject: [PATCH] cmp: remove unused bindings

EMIT-TOPLEVEL-FORM bound *compile-file-truename* and *compile-file-position* to
be immedietely rebound in T2EXPR (to the same value!).

*COMPILE-TO-LINKING-CALL* is not used anywhere.
---
 src/cmp/cmpbackend-cxx/cmppass2-top.lsp | 5 +----
 src/cmp/cmpglobals.lsp                  | 4 ----
 src/cmp/cmppackage.lsp                  | 1 -
 src/compile.lsp.in                      | 4 ++--
 4 files changed, 3 insertions(+), 11 deletions(-)

diff --git a/src/cmp/cmpbackend-cxx/cmppass2-top.lsp b/src/cmp/cmpbackend-cxx/cmppass2-top.lsp
index 78e00de5d..0228290f5 100644
--- a/src/cmp/cmpbackend-cxx/cmppass2-top.lsp
+++ b/src/cmp/cmpbackend-cxx/cmppass2-top.lsp
@@ -179,10 +179,7 @@
         (*level* 0)
         (*env* 0)
         (*env-lvl* 0)
-        (*temp* 0)
-        (*compile-to-linking-call* nil)
-        (*compile-file-truename* (and form (c1form-file form)))
-        (*compile-file-position* (and form (c1form-file-position form))))
+        (*temp* 0))
     ;; We save the C body of the statement, indented, just in case
     ;; we need to add a {} section with the environment variables.
     (let ((body (let ((*opened-c-braces* (1+ *opened-c-braces*)))
diff --git a/src/cmp/cmpglobals.lsp b/src/cmp/cmpglobals.lsp
index 73cc7627b..135d31b6e 100644
--- a/src/cmp/cmpglobals.lsp
+++ b/src/cmp/cmpglobals.lsp
@@ -71,10 +71,6 @@ running the compiler. It may be updated by running ")
 (defvar *machine* nil)
 
 ;;; --cmpcall.lsp--
-;;;
-;;; Whether to use linking calls.
-;;;
-(defvar *compile-to-linking-call* t)
 (defvar *compiler-declared-globals*)
 
 ;;; --cmpenv.lsp--
diff --git a/src/cmp/cmppackage.lsp b/src/cmp/cmppackage.lsp
index 7b11df5c7..62ef2bc16 100644
--- a/src/cmp/cmppackage.lsp
+++ b/src/cmp/cmppackage.lsp
@@ -19,7 +19,6 @@
    ;; Flags controlling the compiler behavior.
    "*COMPILER-BREAK-ENABLE*"
    "*COMPILE-PRINT*"
-   "*COMPILE-TO-LINKING-CALL*"
    "*COMPILE-VERBOSE*"
    "*COMPILER-FEATURES*"
    "*CC*"
diff --git a/src/compile.lsp.in b/src/compile.lsp.in
index bf52484b7..b818ba97c 100755
--- a/src/compile.lsp.in
+++ b/src/compile.lsp.in
@@ -125,8 +125,8 @@
                                     :system-p t :c-file t :data-file t :h-file t
                                     ;;:shared-data-file "build:ecl.sdat"
                                     )))
-  #+CLOS
-  (let* ((c::*compile-to-linking-call* nil))
+  #+clos
+  (progn
     (mapc #'proclaim +ecl-optimization-settings+)
     (setq lsp-objects (append lsp-objects
                               (compile-if-old "build:clos;" +clos-module-files+