aboutsummaryrefslogtreecommitdiff
path: root/src/interp/nlib.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/nlib.lisp')
-rw-r--r--src/interp/nlib.lisp21
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"))