🚀 go-pugleaf

In article <TIM.91Jan16165923@kahlo.cstr.ed.ac.uk> tim@cstr.ed.ac.uk (Tim Bradshaw) writes:

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

Yes...it worked when I added 

#+(and dec common vax (not ultrix)) :version
#+(and dec common vax (not ultrix)) :newest

in the place of #+Xerox as suggested by Tim Bradshaw, along with

#+(and dec common vax (not ultrix))
(defvar *pcl-directory* (pathname "**"))

where ** is the appropriate vms subdirectory the pcl files are stored at.


Thanks to all the responders including Tim Bradshaw. 


Murthy Gandikota
Chemical Engineering 
Lab for AI Research
Ohio State University
Columbus, OH-43210
USA