diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/comp.lisp | 28 | ||||
| -rw-r--r-- | src/interp/compiler.boot | 9 | ||||
| -rw-r--r-- | src/interp/nlib.lisp | 21 |
4 files changed, 14 insertions, 49 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 78f584bc..a7790991 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,10 @@ 2008-04-08 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/nlib.lisp (recompile-lib-file-if-necessary): Remove. + * interp/comp.lisp (|compileFileQuietly|): Move to compiler.boot. + +2008-04-08 Gabriel Dos Reis <gdr@cs.tamu.edu> + * algebra/Lattice.pamphlet: Remove. 2008-04-07 Gabriel Dos Reis <gdr@cs.tamu.edu> 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)) diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index b70fafab..12a36c52 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1592,6 +1592,15 @@ compilerDoitWithScreenedLisplib(constructor, fun) == SEQ(UNEMBED 'RWRITE)) +--% Interface to the backend + +compileFileQuietly path == + $OutputStream := + $InteractiveMode => MAKE_-BROADCAST_-STREAM() + MAKE_-SYNONYM_-STREAM "*STANDARD-OUTPUT*" + COMPILE_-FILE path + + --% Register compilers for special forms. -- Those compilers are on the `SPECIAL' property of the corresponding -- special form operator symbol. diff --git a/src/interp/nlib.lisp b/src/interp/nlib.lisp index aa3af3bf..47815c0a 100644 --- a/src/interp/nlib.lisp +++ b/src/interp/nlib.lisp @@ -262,27 +262,6 @@ (if (and bdate (> bdate ldate)) nil (progn (compile-lib-file lfile) (list bfile)))))) -#+:CCL -(defun recompile-lib-file-if-necessary (lfile) - (let ( (mname (pathname-name (file-namestring (directory-namestring lfile)))) - (mdate (modulep mname)) - (ldate (filedate lfile)) ) - (if (or (not mdate) (datelessp mdate ldate)) - (seq - (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-file lfile - :output-file (intern (pathname-name - (directory-namestring lfile)))))))) - - #+:AKCL (defun spad-fixed-arg (fname ) (and (equal (symbol-package fname) (find-package "BOOT")) |