fix typos EFECT vs EFFECT in templates for CL:WHEN and CL:UNLESS (#1015)

library/MSCOMMON

@@ -1,22 +1,20 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-
(FILECREATED "15-Jan-2022 20:17:21" |{DSK}<home>larry>medley>library>MSCOMMON.;4|
 24053  
+
(FILECREATED " 2-Nov-2022 10:13:59" |{DSK}<home>larry>ilisp>medley>library>MSCOMMON.;3|
 23999  
 
-      :CHANGES-TO (TEMPLATES ADD-EXEC CL:ASSOC CL:COMPILE-FILE EXEC CL:IN-PACKAGE CL:MAKE-STRING OPEN
-                         CL:PUSH CL:PUSHNEW CL:RASSOC CL:WRITE-LINE CL:WRITE-STRING CL:WHEN CL:UNLESS
-                         )
-                  (FNS FUNCTIONSMSGETDEF FUNCTIONSMSMC VARIABLESMSGETDEF)
-                  (VARS MSCOMMONCOMS)
+      :CHANGES-TO (VARS MSCOMMONCOMS)
+                  (TEMPLATES CL:UNLESS CL:WHEN)
 
-      :PREVIOUS-DATE " 4-May-92 13:10:53" |{DSK}<home>larry>medley>library>MSCOMMON.;3|)
+      :PREVIOUS-DATE "15-Jan-2022 20:17:21" |{DSK}<home>larry>ilisp>medley>library>MSCOMMON.;1|)
 
 
-; Copyright (c) 1988, 1990, 1992 by Venue & Xerox Corporation.
+; Copyright (c) 1988, 1990, 1992, 2022 by Venue & Xerox Corporation.
 
 (PRETTYCOMPRINT MSCOMMONCOMS)
 
 (RPAQQ MSCOMMONCOMS

        ((PROP FILETYPE MSCOMMON)
+        (DECLARE\: EVAL@COMPILE (GLOBALVARS USERTEMPLATES MSTEMPLATES))
         (FNS FUNCTIONSMSGETDEF FUNCTIONSMSMC VARIABLESMSGETDEF)
         
         (* |;;| "Templates for CL stuff that need them.")

@@ -89,6 +87,12 @@
            (CLRHASH USERTEMPLATES))))
 
 (PUTPROPS MSCOMMON
 FILETYPE
 :COMPILE-FILE)
+(DECLARE\: EVAL@COMPILE 
+(DECLARE\: DOEVAL@COMPILE DONTCOPY
+
+(GLOBALVARS USERTEMPLATES MSTEMPLATES)
+)
+)
 (DEFINEQ
 
 (FUNCTIONSMSGETDEF

@@ -470,13 +474,13 @@
 
 (SETTEMPLATE 'CL:UNION '(EVAL EVAL KEYWORDS :TEST :TEST-NOT :KEY))
 
-(SETTEMPLATE 'CL:UNLESS '(TEST |..| EFECT RETURN))
+(SETTEMPLATE 'CL:UNLESS '(TEST |..| EFFECT RETURN))
 
 (SETTEMPLATE 'CL:VECTOR-PUSH '(EVAL SMASH))
 
 (SETTEMPLATE 'CL:VECTOR-PUSH-EXTEND '(EVAL SMASH EVAL))
 
-(SETTEMPLATE 'CL:WHEN '(TEST |..| EFECT RETURN))
+(SETTEMPLATE 'CL:WHEN '(TEST |..| EFFECT RETURN))
 
 (SETTEMPLATE 'WRITE '(EVAL KEYWORDS :STREAM :ESCAPE :RADIX :BASE :CIRCLE :PRETTY :LEVEL :LENGTH :CASE
                            :GENSYM :ARRAY))
@@ -552,8 +556,8 @@
                            (PUTHASH KEY VAL MSTEMPLATES)))
 
 (CLRHASH USERTEMPLATES)
-(PUTPROPS MSCOMMON COPYRIGHT ("Venue & Xerox Corporation" 1988 1990 1992))
+(PUTPROPS MSCOMMON COPYRIGHT ("Venue & Xerox Corporation" 1988 1990 1992 2022))
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (5280 7291 (FUNCTIONSMSGETDEF 5290 . 6258) (FUNCTIONSMSMC 6260 . 6731) (
-VARIABLESMSGETDEF 6733 . 7289)))))
+  (FILEMAP (NIL (5219 7230 (FUNCTIONSMSGETDEF 5229 . 6197) (FUNCTIONSMSMC 6199 . 6670) (
+VARIABLESMSGETDEF 6672 . 7228)))))
 STOP