More on Patchable Systems

[Gerald R. Barber <JerryB at MIT-AI>]

In System 78.18, ZMail 38.2, Local-File 30.3, Experimental MEGA 2.0, microcode 836, on Lisp Machine Eighteen:

Is it really true that two patchable systems and their associated patch
directories cannot live on the same filecomputer directory as shown
below.  This seems unduly restrictive.  Isn't there a way to force the
use of the patch file naming convention that is used when the patch
directory is different from the system default pathname.


(DEFSYSTEM foo1
  (:PATHNAME-DEFAULT "ai:jerryb;")
  (:PATCHABLE)
  (:PACKAGE "TV")
  (:MODULE MAIN "besc")
  (:COMPILE-LOAD MAIN))
FOO1

(make-system 'foo1 ':compile)

Going to Increment FOO1 patch version

Increment FOO1 patch version? (Y or N) Yes.
Incrementing FOO1 patch version
No master directory for system FOO1, creating one
FOO1 version 1. created

Going to Make FOO1 patchable

Make FOO1 patchable? (Y or N) Yes.
Making FOO1 patchable
Experimental FOO1 version 1. loaded

T

(DEFSYSTEM foo2
  (:PATHNAME-DEFAULT "ai:jerryb;")
  (:PATCHABLE)
  (:PACKAGE "si")
  (:MODULE MAIN "maks")
  (:COMPILE-LOAD MAIN))
FOO2

(make-system 'foo2 ':compile)

Going to Increment FOO2 patch version

Increment FOO2 patch version? (Y or N) Yes.
Incrementing FOO2 patch version
>>ERROR: FOO2 name does not agree with FOO1 the name in the patch descriptor file
While in the function SI:GET-PATCH-SYSTEM-MAJOR-VERSION  SI:INCREMENT-PATCH-SYSTEM-MAJOR-VERSION  SI:INCREMENT-COMPILED-VERSION-1

SI:GET-PATCH-SYSTEM-MAJOR-VERSION:
   Arg 0 (NAME): "FOO2"
   Arg 1 (NO-ERROR-P): T
c-Z 
*