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

(FILECREATED "15-Aug-90 14:21:20" |{DSK}<usr>local>lde>SOURCES>loops>SYSTEM>MEDLEY-PATCH.;2|
 1662   

      |changes| |to:|  (VARS MEDLEY-PATCHCOMS)

      |previous| |date:| "24-Jun-88 19:03:20" 
|{DSK}<usr>local>lde>SOURCES>loops>SYSTEM>MEDLEY-PATCH.;1|)


; Copyright (c) 1988, 1990 by Venue & Xerox Corporation.  All rights reserved.

(PRETTYCOMPRINT MEDLEY-PATCHCOMS)

(RPAQQ MEDLEY-PATCHCOMS
 ((FNS |FromAnEditor?|)
                                                             (* \; 

                                                           "Update of Lyric LOOPS SEdit interface")

                             (ADVISE (REMOVE-COMMENTS :IN COMPILER::PROCESS-FORMS))
                                                             (* \; "Fixes AR 10464")
))
(DEFINEQ

(|FromAnEditor?|

  (lambda nil
                                            (* \; "Edited 26-Apr-88 19:50 by jrb:")


    (* |;;| 

  "This works under Lyric SEdit only- it will have to change for Medley to sedit::whatever it is.")


    (and (stkpos 'sedit::verify-structure)
         t)))
)



(* \; "Update of Lyric LOOPS SEdit interface")



(XCL:REINSTALL-ADVICE '(REMOVE-COMMENTS :IN COMPILER::PROCESS-FORMS)
       :AROUND
       '((:LAST (IF
 (EQ (CAAR XCL:ARGLIST)
                            'DEFCLASS)
                    THEN
 (CAR XCL:ARGLIST)
                  ELSE
 *
))))

(READVISE (REMOVE-COMMENTS :IN COMPILER::PROCESS-FORMS))



(* \; "Fixes AR 10464")


(PUTPROPS MEDLEY-PATCH COPYRIGHT ("Venue & Xerox Corporation" 1988 1990))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (848 1165 (|FromAnEditor?| 858 . 1163)))))
STOP