(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")

(FILECREATED "24-Feb-88 20:18:05" {PHYLUM}<LISP>LYRIC>PATCHES>LOCAL-LYRIC-PATCHES.\;3
 4786   

      |changes| |to:|  (VARS LOCAL-LYRIC-PATCHESCOMS)

      |previous| |date:| "15-Jan-88 14:24:28" {PHYLUM}<LISP>LYRIC>PATCHES>LOCAL-LYRIC-PATCHES.\;1)


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

(PRETTYCOMPRINT LOCAL-LYRIC-PATCHESCOMS)

(RPAQQ LOCAL-LYRIC-PATCHESCOMS
 ((FNS NEW\\TURN.ON.PROCESSES)
                                (FNS NEW\\NS.SETTIME NEW\\PUP.SETTIME)
                                (DECLARE\: DONTEVAL@LOAD DOCOPY (COMS 
          
          (* |;;| 

  "patch problem with HARDRESET when exec window closed turning off the Daybreak keyboard (in Lyric)")


                                                                      
          
          (* |;;| "vanMelle 3-Jul-87")


                                                                      (P (MOVD? '\\TURN.ON.PROCESSES
                                                                                '
                                                                               OLD\\TURN.ON.PROCESSES
                                                                                )
                                                                         (MOVD '
                                                                               NEW\\TURN.ON.PROCESSES
                                                                               '\\TURN.ON.PROCESSES 
                                                                               NIL T)))
                                       (COMS 
          
          (* |;;| "The following fixes the DST problem.")


                                             (P (MOVD? '\\NS.SETTIME 'OLD\\NS.SETTIME)
                                                (MOVD 'NEW\\NS.SETTIME '\\NS.SETTIME NIL T)
                                                (MOVD? '\\PUP.SETTIME 'OLD\\PUP.SETTIME)
                                                (MOVD 'NEW\\PUP.SETTIME '\\PUP.SETTIME NIL T)
                                                (SAVESET '|\\EndDST| 303 T)
                                                (UNMARKASCHANGED '|\\EndDST| 'VARS)))
                                       (COMS 
          
          (* |;;| "FIx interpreted LET*")


                                             (P (/PUTD 'LET* NIL)))
                                       (COMS (P (RPLACD (LAST |\\BrushAList|)
                                                       NIL)))
                                       (P (WITHOUT.PAGEHOLD (WFROMDS (GETSTREAM T 'OUTPUT))
                                                 (|if| (DEFINEDP 'TEDIT)
                                                       |then|
                                                       (FILESLOAD (SYSLOAD)
                                                              TEDIT-CLOSE-ON-SHRINK))
                                                 (FILESLOAD (SYSLOAD)
                                                        CORRECTTOLERANCE-PATCH))))))
(DEFINEQ

(NEW\\TURN.ON.PROCESSES

  (LAMBDA NIL
                                                (* |N.H.Briggs| " 6-Jul-87 16:53")

    (\\KEYBOARDON)
    (OLD\\TURN.ON.PROCESSES)))
)
(DEFINEQ

(NEW\\NS.SETTIME

  (LAMBDA (RETFLG)
    (DECLARE
 (GLOBALVARS |\\EndDST|))
                        (* "N.H.Briggs" " 2-Nov-87 12:52")

    (OLD\\NS.SETTIME RETFLG)
    (SETQ |\\EndDST| 303)))

(NEW\\PUP.SETTIME

  (LAMBDA (RETFLG)
    (DECLARE
 (GLOBALVARS |\\EndDST|))
                        (* "N.H.Briggs" " 2-Nov-87 12:52")

    (OLD\\PUP.SETTIME RETFLG)
    (SETQ |\\EndDST| 303)))
)
(DECLARE\: DONTEVAL@LOAD DOCOPY 



(* |;;| 
"patch problem with HARDRESET when exec window closed turning off the Daybreak keyboard (in Lyric)")





(* |;;| "vanMelle 3-Jul-87")


(MOVD? '\\TURN.ON.PROCESSES 'OLD\\TURN.ON.PROCESSES)
(MOVD 'NEW\\TURN.ON.PROCESSES '\\TURN.ON.PROCESSES NIL T)




(* |;;| "The following fixes the DST problem.")


(MOVD? '\\NS.SETTIME 'OLD\\NS.SETTIME)
(MOVD 'NEW\\NS.SETTIME '\\NS.SETTIME NIL T)
(MOVD? '\\PUP.SETTIME 'OLD\\PUP.SETTIME)
(MOVD 'NEW\\PUP.SETTIME '\\PUP.SETTIME NIL T)
(SAVESET '|\\EndDST| 303 T)
(UNMARKASCHANGED '|\\EndDST| 'VARS)




(* |;;| "FIx interpreted LET*")


(/PUTD 'LET* NIL)

(RPLACD (LAST |\\BrushAList|)
       NIL)

(WITHOUT.PAGEHOLD (WFROMDS (GETSTREAM T 'OUTPUT))
       (|if| (DEFINEDP 'TEDIT)
             |then|
             (FILESLOAD (SYSLOAD)
                    TEDIT-CLOSE-ON-SHRINK))
       (FILESLOAD (SYSLOAD)
              CORRECTTOLERANCE-PATCH))
)
(PUTPROPS LOCAL-LYRIC-PATCHES COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (3136 3329 (NEW\\TURN.ON.PROCESSES 3146 . 3327)) (3330 3754 (NEW\\NS.SETTIME 3340 . 3544
) (NEW\\PUP.SETTIME 3546 . 3752)))))
STOP