Commit a25acd18 authored by ram's avatar ram
Browse files

fix stuff.

parent 75f48229
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.93 1993/08/03 10:55:12 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.94 1993/08/03 12:58:13 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -661,7 +661,7 @@ ...@@ -661,7 +661,7 @@
(declare (list files)) (declare (list files))
(let ((file-info (let ((file-info
(mapcar #'(lambda (x) (mapcar #'(lambda (x)
(make-file-info :name (namestring (truename x)) (make-file-info :name (truename x)
:untruename x :untruename x
:write-date (file-write-date x) :write-date (file-write-date x)
:language :language
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment