diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-04-09 03:56:18 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-04-09 03:56:18 +0000 |
| commit | 84f8896fc28ddbcd0e5cfd65202005cfc12d9dfd (patch) | |
| tree | 396ce0c7d46ec20a69aa88cd6ad08e3be1c0d459 /src/interp/nlib.lisp | |
| parent | 74e60def2cc32754fa0e8c823ad7faac3c9d52dc (diff) | |
| download | open-axiom-84f8896fc28ddbcd0e5cfd65202005cfc12d9dfd.tar.gz | |
* interp/nlib.lisp (recompile-lib-file-if-necessary): Remove.
* interp/comp.lisp (|compileFileQuietly|): Move to compiler.boot.
Diffstat (limited to 'src/interp/nlib.lisp')
| -rw-r--r-- | src/interp/nlib.lisp | 21 |
1 files changed, 0 insertions, 21 deletions
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")) |