* interp/nlib.lisp (recompile-lib-file-if-necessary): Remove.

	* interp/comp.lisp (|compileFileQuietly|): Move to compiler.boot.

1 files changed, 0 insertions, 28 deletions

diff --git a/src/interp/comp.lisp b/src/interp/comp.lisp
index f2bb2a91..8945cc49 100644
--- a/src/interp/comp.lisp
+++ b/src/interp/comp.lisp
@@ -54,8 +54,6 @@
 (IMPORT-MODULE "macros")
 (in-package "BOOT")
 
-(export '(Comp FluidVars LocVars OptionList SLAM SPADSLAM ILAM FLUID))
-
 (defparameter |$compileDontDefineFunctions| 'T)
 
 ;;; Common Block section
@@ -97,32 +95,6 @@
            (make-synonym-stream '*standard-output*))))
     (COMP fn)))
 
-#-:CCL
-(defun |compileFileQuietly| (fn) 
-  (let (
-     ;; following creates a null outputstream if $InteractiveMode
-        (|$OutputStream|
-         (if |$InteractiveMode| (make-broadcast-stream)
-           (make-synonym-stream '*standard-output*))))
-    (COMPILE-FILE fn)))
-
-#+:CCL
-(defun |compileFileQuietly| (fn)
-  (let (
-     ;; following creates a null outputstream if $InteractiveMode
-     (|$OutputStream|
-       (if |$InteractiveMode| (make-broadcast-stream) *standard-output*)))
-     ;; The output-library is not opened before use unless set explicitly
-     (if (null output-library)
-         (|openOutputLibrary| 
-           (setq |$outputLibraryName|
-            (if (null |$outputLibraryName|)
-                (make-pathname :directory (get-current-directory)
-                               :name "user.lib")
-                (if (filep |$outputLibraryName|) (truename |$outputLibraryName|)
-                                                 |$outputLibraryName|)))))
-     (compile-lib-file fn)))
-
 ;; The following are used mainly in setvars.boot
 (defun notEqualLibs (u v)
   (if (string= u (library-name v)) (seq (close-library v) t) nil))