Changed the commentary, a couple of minor changes and hierarchy of :static-file.

;;; to load the old fasl or recompile and then load the new

;;; fasl?

;;;

;;; modify compile-file-operation to handle a query keyword....

;;; Modify compile-file-operation to handle a query keyword....

;;;

;;; Perhaps systems should keep around the file-write-date of the system

;;; definition file, to prevent excessive reloading of the system definition?

;;; requires more thought, since there are subtle cases where it might not

;;; be correct. For now, the change will have to wait until the DEFSYSTEM

;;; redesign.

;;;

;;; ## 2026-03-11: ma: Handle HOST, DEVICE and VERSION pathname slots.

;;; 

;;; Currently the COMPONENT slots for HOST, DEVICE and VERSION are not

;;; really handled.  They probably should, even though that may create

;;; problems with logical pathnames.

;;; How to Use this System

;;; ----------------------

;;; If you include a tilde in the :source-pathname in Allegro, as in "~/lisp",

;;; file name expansion is much slower than if you use the full pathname,

;;; as in "/user/USERID/lisp".

;;;

;;; Common Lisp Code

(defstruct (private-file (:include file (type :private-file))))

(defstruct (static-file (:include component (type :static-file))))

(defstruct (static-file (:include file (type :static-file))))

;;; new-component