Skip to content
Snippets Groups Projects
Commit 992e55c1 authored by pw's avatar pw
Browse files

/tmp/msg

parent 68ba48a1
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.109 1997/02/05 15:41:53 pw Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.110 1997/02/15 15:32:49 pw Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -1549,23 +1549,27 @@ ...@@ -1549,23 +1549,27 @@
;;; exist. ;;; exist.
;;; ;;;
(defun verify-source-files (stuff) (defun verify-source-files (stuff)
(flet ((try-with-type (path type error-p) (let* ((stuff (if (listp stuff) stuff (list stuff)))
(let ((new (merge-pathnames path (make-pathname :type type (default-host (make-pathname
:defaults path)))) :host (pathname-host (pathname (first stuff))))))
(if (probe-file new) (flet ((try-with-type (path type error-p)
new (let ((new (merge-pathnames
(and error-p (truename new)))))) path (make-pathname :type type
(unless stuff :defaults default-host))))
(error "Can't compile with no source files.")) (if (probe-file new)
(mapcar #'(lambda (x) new
(let ((x (pathname x))) (and error-p (truename new))))))
(cond ((logical-pathname-p x) (unless stuff
(try-with-type x "LISP" t)) (error "Can't compile with no source files."))
((probe-file x) x) (mapcar #'(lambda (x)
((try-with-type x "lisp" nil)) (let ((x (pathname x)))
((try-with-type x "dylan" nil)) (cond ((logical-pathname-p x)
((try-with-type x "lisp" t))))) (try-with-type x "LISP" t))
(if (listp stuff) stuff (list stuff))))) ((probe-file x) x)
((try-with-type x "lisp" nil))
((try-with-type x "dylan" nil))
((try-with-type x "lisp" t)))))
stuff))))
;;; COMPILE-FROM-STREAM -- Public ;;; COMPILE-FROM-STREAM -- Public
;;; ;;;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment