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

@@ -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*)))

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--

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*"

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+