(DEFINE-FILE-INFO PACKAGE "XCL-USER" READTABLE "XCL" BASE 10)

(il:filecreated " 1-Feb-89 14:44:47" il:|{EG:PARC:XEROX}<RAO>LISP>MEDLEY>HYPERDESK-LOG.;3|
 2633   

      il:|changes| il:|to:|  (il:vars il:hyperdesk-logcoms) (il:functions il:make-hyperdesk-bug-report il:log-hyperdesk-user)

      il:|previous| il:|date:| " 1-Feb-89 14:41:24" 
il:|{EG:PARC:XEROX}<RAO>LISP>MEDLEY>HYPERDESK-LOG.;2|)


; Copyright (c) 1989 by Xerox Corporation.  All rights reserved.

(il:prettycomprint il:hyperdesk-logcoms)

(il:rpaqq il:hyperdesk-logcoms ((il:initvars (*hyperdesk-sysout-p*) (*superdesk-sysout-p*) (*hyperdesk-init-p*) (il:\\cc-hyperdesk-msg t) (*hyperdesk-maintainers* "Burwell.pa, Rao.pa")) (il:functions il:log-hyperdesk-user il:make-hyperdesk-bug-report) (il:p (pushnew (quote ("HyperDesk Report" (quote il:make-hyperdesk-bug-report) "Report a bug in HyperDesk")) il:lafitespecialforms :test (quote equal) :key (quote car)) (setq il:lafiteformsmenu nil)) (il:declare\: il:dontcopy (il:props (il:hyperdesk-log il:makefile-environment) (il:hyperdesk-log il:filetype)))))

(il:rpaq? *hyperdesk-sysout-p*)

(il:rpaq? *superdesk-sysout-p*)

(il:rpaq? *hyperdesk-init-p*)

(il:rpaq? il:\\cc-hyperdesk-msg t)

(il:rpaq? *hyperdesk-maintainers* "Burwell.pa, Rao.pa")

(defun il:log-hyperdesk-user nil "If another person uses Generic-Init, let me know." (unless *hyperdesk-init-logged* (ignore-errors (let ((user (il:if il:\\cc-hyperdesk-msg il:then (il:username) il:else "")) (maintainer *hyperdesk-maintainers*)) (unless (string-equal (il:username) maintainer) (il:lafite.sendmessage (format nil "Subject: ~A~%To: ~A~%Cc: ~A~@{~%~%~A~}" (format nil "Using Sysout: ~a, Hyper Init File: ~a" (if *hyperdesk-sysout-p* "Hyper" (if *superdesk-sysout-p* "Super" "Guess")) *hyperdesk-init-p*) maintainer user "If you hate seeing this message,
set IL:\\CC-HYPERDESK-MSG to NIL in your Init file or ask rr to." "Call x4716 or xBEC for instant help" "Thanks for making the HyperDesk available.")))) (setq *hyperdesk-init-logged* t))))

(defun il:make-hyperdesk-bug-report nil (il:makexxxsupportform "HyperDesk" *hyperdesk-maintainers* il:heraldstring))

(pushnew (quote ("HyperDesk Report" (quote il:make-hyperdesk-bug-report) "Report a bug in HyperDesk")) il:lafitespecialforms :test (quote equal) :key (quote car))

(setq il:lafiteformsmenu nil)
(il:declare\: il:dontcopy 

(il:putprops il:hyperdesk-log il:makefile-environment (:package "XCL-USER" :readtable "XCL" :base 10))

(il:putprops il:hyperdesk-log il:filetype :compile-file)
)
(il:putprops il:hyperdesk-log il:copyright ("Xerox Corporation" 1989))
(il:declare\: il:dontcopy
  (il:filemap (nil)))
il:stop