Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!uunet!mcsun!ukc!edcastle!aipna!cstr!tim
From: tim@cstr.ed.ac.uk (Tim Bradshaw)
Newsgroups: comp.lang.clos
Subject: Re: pcl on vax
Message-ID: <TIM.91Jan16165923@kahlo.cstr.ed.ac.uk>
Date: 16 Jan 91 16:59:23 GMT
References: <CMM.0.90.2.663747282.murthy@magnus.acs.ohio-state.edu>
Sender: news@aipna.ed.ac.uk
Distribution: inet
Organization: CSTR, University of Edinburgh
Lines: 47
In-reply-to: murthy@MAGNUS.ACS.OHIO-STATE.EDU's message of 13 Jan 91 06:14:42 GMT

>>>>> 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..."