diff --git a/compiler/main.lisp b/compiler/main.lisp index d0af5e5c0705945b1d793777e4e184e9ac7a109f..dcb3fac90b8f503d7c1530bf814459e4a75f1cdd 100644 --- a/compiler/main.lisp +++ b/compiler/main.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.121 2001/03/04 20:12:23 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.122 2001/03/13 15:58:26 pw Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1552,7 +1552,7 @@ (error "Can't compile with no source files.")) (mapcar #'(lambda (x) (let ((x (pathname x))) - (cond ((logical-pathname-p x) + (cond ((typep x 'logical-pathname) (try-with-type x "LISP" t)) ((probe-file x) x) ((try-with-type x "lisp" nil)) @@ -1717,7 +1717,7 @@ (if (eq file t) (make-pathname :type type :defaults - (if (logical-pathname-p default) + (if (typep default 'logical-pathname) (translate-logical-pathname default) default)) (pathname file)))) @@ -1925,7 +1925,7 @@ (cond ((not (eq output-file t)) (when output-file (translate-logical-pathname (pathname output-file)))) - ((and (logical-pathname-p pathname) (not (eq byte-compile t))) + ((and (typep pathname 'logical-pathname) (not (eq byte-compile t))) (make-pathname :type "FASL" :defaults pathname :case :common)) (t