diff options
Diffstat (limited to 'src/interp/comp.lisp')
-rw-r--r-- | src/interp/comp.lisp | 28 |
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)) |