(lisp-set-implementation "Interleaf Lisp" "1.0")

;; Archive Lisp

;; Created By William Wagner 13-APR-1990   AiResearch Tucson Division

;; Procedure to start archive process. Place this lisp in the
;; Custom No Selection Cabinet and use it once an Archive listing
;; has been compiled.

;; begin
;; check to see if list has been compiled
(if (probe-file "ddcu:[directory]temp_out.lis")
    ;; if so start archive process
    (proc-create "@ddcu:[directory]archive.com")
    ;; if not display warning
    (display-stickup "An Archive list must be compiled prior to selecting
the Archive function !" :continue)
)