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:


I am having trouble making patchable system, if I define a system:

(DEFSYSTEM DIAGRAM-INSERTER
  (:PATHNAME-DEFAULT "ai:omega;")
  (:PATCHABLE "ai:jerryb;")
  (:PACKAGE "PRESS")
  (:MODULE MAIN "insdig")
  (:COMPILE-LOAD MAIN))
DIAGRAM-INSERTER

;; Then I make it for the first time

(make-system 'diagram-inserter ':compile)

Going to Increment DIAGRAM-INSERTER patch version

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

>>ERROR: DIAGRAM-INSERTER name does not agree with EXPERIMENTAL the name in the patch descriptor file
While in the function SI:GET-PATCH-SYSTEM-MAJOR-VERSION  SI:PATCH-VERSION-NEWER-THAN-LOADED  SI:QUEUE-FILES-AS-NEEDED

SI:GET-PATCH-SYSTEM-MAJOR-VERSION:
   Arg 0 (NAME): "DIAGRAM-INSERTER"
   --Defaulted args:--
   Arg 1 (NO-ERROR-P): NIL
c-Z 
* 

; The contents of the file JERRYB;DIAGRA (PDIR) is:

;;; -*- Mode: Lisp; Package: User; Base: 10.; Patch-File: T -*-
;;; Patch directory for DIAGRAM-INSERTER version 1
;;; Written 12/17/81 13:18:56 by JerryB,
;;; while running on Lisp Machine Eighteen from band 3
;;; with System 78.18, ZMail 38.2, Local-File 30.3, Experimental MEGA 2.0, microcode 836.

(EXPERIMENTAL
 ((0 "DIAGRAM-INSERTER Loaded" "JerryB")
  ))


; However if the system name has 5 letter or less all seems to work fine: 

(DEFSYSTEM foooo
  (:PATHNAME-DEFAULT "ai:omega;")
  (:PATCHABLE "ai:jerryb;")
  (:PACKAGE "PRESS")
  (:MODULE MAIN "insdig")
  (:COMPILE-LOAD MAIN))
FOOOO

* 
FOOOO
(make-system * ':compile)

Going to Increment FOOOO patch version

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

Going to Make FOOOO patchable

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

T