diff options
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")) |