(FILECREATED "20-Nov-85 18:39:06" {ERIS}<LISPCORE>LIBRARY>CMLEXEC.;12
 2522   

      changes to:  (VARS CMLEXECCOMS)

      previous date: "14-Nov-85 21:21:00" {ERIS}<LISPCORE>LIBRARY>CMLEXEC.;11)


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

(PRETTYCOMPRINT CMLEXECCOMS)

(RPAQQ CMLEXECCOMS
 [(VARS CMLPROMPT)
	(FNS CMLTTYINREAD CMLTTYINEDIT)
	(DECLARE:
	  DONTEVAL@LOAD DOCOPY (FILES LISTEN)
	  (P
	    (MOVD? (QUOTE TTYINREAD)
		   (QUOTE OLDTTYINREAD))
	    (MOVD (QUOTE CMLTTYINREAD)
		  (QUOTE TTYINREAD))
	    (* * The following does not repair FIX's non-use of the CMLRDTBL (CHANGENAME
		 (QUOTE LISPXFIX)
		 (QUOTE TTYINEDIT)
		 (QUOTE CMLTTYINEDIT)))
	    [for
	      X in BackgroundMenuCommands when (OR (STRING-EQUAL (CAR X)
								 (QUOTE EXEC))
						   (STRING-EQUAL (CAR X)
								 (QUOTE Lisp% Listener)))
	      do
	      (RETURN
		(change (CDDDR X)
			(QUOTE ((SUBITEMS
				  (Interlisp (QUOTE (ADD.NEW.EXEC)))
				  ("Common Lisp"
				    (BQUOTE (ADD.NEW.EXEC (BQUOTE (LET ((\CML.READPREFIX "#"))
								       (EVALQT (BQUOTE (\, CMLPROMPT]
	    (SETQ BackgroundMenu])

(RPAQQ CMLPROMPT
 "*")
(DEFINEQ

(CMLTTYINREAD

  [LAMBDA (FILE RDTBL)                                       (* raf "14-Nov-85 20:57")

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

(CMLTTYINEDIT

  [LAMBDA (EXPRS WINDOW PRINTFN PROMPT RDTBL)                (* bvm: "29-Oct-85 19:10")

    (
COND

      ((
EQ
 PROMPT CMLPROMPT)
	(
TTYIN
 PROMPT NIL NIL (
QUOTE
 LISPXREAD)
		 NIL NIL EXPRS CMLRDTBL))
      (T (
TTYINEDIT
 EXPRS WINDOW PRINTFN PROMPT RDTBL])
)
(DECLARE: DONTEVAL@LOAD DOCOPY 
(FILESLOAD LISTEN)

(MOVD? (QUOTE TTYINREAD)
       (QUOTE OLDTTYINREAD))
(MOVD (QUOTE CMLTTYINREAD)
      (QUOTE TTYINREAD))
(* * The following does not repair FIX's non-use of the CMLRDTBL (CHANGENAME (QUOTE LISPXFIX)
									     (QUOTE TTYINEDIT)
									     (QUOTE CMLTTYINEDIT)))
[for X in BackgroundMenuCommands when (OR (STRING-EQUAL (CAR X)
							(QUOTE EXEC))
					  (STRING-EQUAL (CAR X)
							(QUOTE Lisp% Listener)))
     do
     (RETURN (change (CDDDR X)
		     (QUOTE ((SUBITEMS (Interlisp (QUOTE (ADD.NEW.EXEC)))
				       ("Common Lisp"
					 (BQUOTE (ADD.NEW.EXEC
						   (BQUOTE (LET ((\CML.READPREFIX "#"))
								(EVALQT (BQUOTE (\, CMLPROMPT]
(SETQ BackgroundMenu)
)
(PUTPROPS CMLEXEC COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1153 1715 (CMLTTYINREAD 1163 . 1418) (CMLTTYINEDIT 1420 . 1713)))))
STOP