🚀 go-pugleaf

>>>>> On 13 Jan 91 06:14:42 GMT, murthy@MAGNUS.ACS.OHIO-STATE.EDU (Murthy S Gandikota) said:


> Hi,

> I obtained a copy of pcl (I think may '90 version) from Arun Welch.
> I am now trying to load it on a vax station 3100 (VMS).

> Here's a description of my problem:

> when I say (pcl::compile-pcl) I've got an error saying

> Error in compile-file:
> Input file does not exist: [ce.murthy.clos]pkg.lisp;7

I believe that this is because the code in defsys.lisp is not careful
enough about computing the default pathname.  On a different Lisp
(Xerox Medley) I cured a similar problem by the following change to
MAKE-PATHNAME-INTERNAL in defsys.lisp:

(defun make-pathname-internal (name type)
  (let* ((extension (ecase type
                      (:source (car *pathname-extensions*))
                      (:binary (cdr *pathname-extensions*))))
         (directory (pathname
		      (etypecase *system-directory*
			(string *system-directory*)
			(pathname *system-directory*)
			(cons (ecase type
				(:source (car *system-directory*))
				(:binary (cdr *system-directory*)))))))
         (pathname
           (make-pathname
             :name (string-downcase (string name))
             :type extension
             :defaults directory
	     ;; Fix version numbering for Xerox
	     #+Xerox :version  
	     #+Xerox :newest)))

This could well work for you to (change the #+Xerox to the appropriate
thing or just remove it I guess).

--tim
Tim Bradshaw.  Internet: tim%ed.cstr@nsfnet-relay.ac.uk
UUCP: ...!uunet!mcvax!ukc!cstr!tim  JANET: tim@uk.ac.ed.cstr
"...wizzards & inchanters..."