(FILECREATED "17-Oct-85 18:19:13" {ERIS}<FISCHER>LIBRARY>CMLEXEC.;3
 2001   

      changes to:  (VARS CMLEXECCOMS)
		   (FNS CMLREAD CMLTTYINREAD)

      previous date: "14-Oct-85 18:25:00" {ERIS}<FISCHER>CMLEXEC.;3)


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT CMLEXECCOMS)

(RPAQQ CMLEXECCOMS
 ((VARS CMLPROMPT)
	(FNS CMLREAD CMLTTYINREAD)
	[DECLARE: DONTEVAL@LOAD DOCOPY (P (MOVD? (QUOTE TTYINREAD)
						 (QUOTE OLDTTYINREAD))
					  (MOVD (QUOTE CMLTTYINREAD)
						(QUOTE TTYINREAD]
	(FILES LISTEN)
	(P [CHANGE (CDDDR (ASSOC (QUOTE Lisp% Listener)
				 BackgroundMenuCommands))
		   (QUOTE ((SUBITEMS (Interlisp (QUOTE (AddNewLispListener)))
				     ("Common Lisp"
				       (BQUOTE (AddNewLispListener
						 (BQUOTE (LET ((\CML.READPREFIX "#"))
							      (EVALQT (BQUOTE (\, CMLPROMPT]
	   (SETQ BackgroundMenu))))

(RPAQQ CMLPROMPT
 "*")
(DEFINEQ

(CMLREAD

  [CL:LAMBDA (FILE RDTBL)                                    (* raf "17-Oct-85 17:53")

    (if
 (
EQ
 LISPXID CMLPROMPT)
	then
 (
CMLTRANSLATE
 (
READ
 FILE (
OR
 RDTBL CMLRDTBL)))
      else
 (
READ
 FILE (
OR
 RDTBL CMLRDTBL])

(CMLTTYINREAD

  [LAMBDA (FILE RDTBL)                                       (* raf "17-Oct-85 17:45")

    (if
 (
EQ
 LISPXID CMLPROMPT)
	then
 (
CMLTRANSLATE
 (
OLDTTYINREAD
 FILE (
OR
 RDTBL CMLRDTBL)))
      else
 (
OLDTTYINREAD
 FILE (
OR
 RDTBL CMLRDTBL])
)
(DECLARE: DONTEVAL@LOAD DOCOPY 
(MOVD? (QUOTE TTYINREAD)
       (QUOTE OLDTTYINREAD))
(MOVD (QUOTE CMLTTYINREAD)
      (QUOTE TTYINREAD))
)
(FILESLOAD LISTEN)
[CHANGE (CDDDR (ASSOC (QUOTE Lisp% Listener)
		      BackgroundMenuCommands))
	(QUOTE ((SUBITEMS (Interlisp (QUOTE (AddNewLispListener)))
			  ("Common Lisp" (BQUOTE (AddNewLispListener
						   (BQUOTE (LET ((\CML.READPREFIX "#"))
								(EVALQT (BQUOTE (\, CMLPROMPT]
(SETQ BackgroundMenu)
(PUTPROPS CMLEXEC COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (904 1471 (CMLREAD 914 . 1180) (CMLTTYINREAD 1182 . 1469)))))
STOP