Revert "MKPROGN from record was overridden by the better one on WTFIX; ancient bug tickled when compiling LIFE (#612)" (#614)

This reverts commit 339bd471079a281adc870f1ad15005dcd1b3f6c1.

sources/RECORD

@@ -1,19 +1,16 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
(FILECREATED "19-Jan-93 11:15:39" {DSK}<python>lde>lispcore>sources>RECORD.;3
 180531 
 
-
(FILECREATED " 6-Dec-2021 15:03:47" {DSK}<home>medley>medley>sources>RECORD.;2
 181211 
-
-      changes to%:  (VARS RECORDCOMS)
-
-      previous date%: "19-Jan-93 11:15:39" {DSK}<home>medley>medley>sources>RECORD.;1)
+      previous date%: " 5-Jan-93 02:03:38" {DSK}<python>lde>lispcore>sources>RECORD.;2)
 
 
 (* ; "
-Copyright (c) 1982-1988, 1990, 1993 by Venue & Xerox Corporation.
+Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporation.  All rights reserved.
 ")
 
 (PRETTYCOMPRINT RECORDCOMS)
 
-(RPAQQ RECORDCOMS

+(RPAQQ RECORDCOMS
 
        [(FNS RECORDTRAN RECREDECLARE RECREDECLARE1 RECREDECLARE2 RECORDECL RECORDFIELD? RECORDECL0 
              RECORDECL1 RECORDECLBLOCK RECORDECLTAIL CHECKRECORDNAME LISTRECORDEFS 
              RECORD.REMOVE.COMMENTS DECLARERECORD DECLSUBFIELD UNCLISPTRAN RECDEC? ALLOCHASH GETSETQ
@@ -27,7 +24,7 @@ Copyright (c) 1982-1988, 1990, 1993 by Venue & Xerox Corporation.
              RECFIELDLOOK RECORDCHAIN RECLOOK1 SYSRECLOOK1 TOPPATHS ALLPATHS CHECKDEFS JOINDEF)
         (FNS NOTOKSWAP FIXFIELDORDER FINDFIELDUSAGE EMBEDPROG)
         (FNS RECLISPLOOKUP CONSFN RECORDGENSYM RECORDBIND RECORDERROR SETUPHASHARRAY DWIMIFYREC 
-             MKCONS)
+             MKCONS MKPROGN)
         (FNS RECORDINIT)
         (VARS PATGENSYMVARS)
         (INITVARS (RECORDINIT))
@@ -78,13 +75,14 @@ Copyright (c) 1982-1988, 1990, 1993 by Venue & Xerox Corporation.
                        CSUBSTLST DECLARERECORD DECLSUBFIELD DWIMIFYREC EMBEDPROG FIELDLOOK 
                        FIELDNAMESIN FINDFIELDUSAGE FIXDATUM FIXFIELDORDER GETFIELDFORCREATE GETSETQ 
                        HASHLINKS JOINDEF LISTRECORDEFS MAKEACCESS MAKEACCESS1 MAKECREATE0 MAKECREATE1
-                       MAKECREATELST MAKECREATELST1 MAKEHASHLINKS MKACCESSFN MKCONS NOTOKSWAP REBINDP
-                       RECDEC? RECEVAL RECFIELDLOOK RECLISPLOOKUP RECLOOK RECLOOK1 RECORD.FIELD.VALUE
-                       RECORD.FIELD.VALUE0 RECORDACCESS RECORDALLOCATIONS RECORDBIND RECORDBINDVAL 
-                       RECORDCHAIN RECORDECL RECORDECL0 RECORDECL1 RECORDECLBLOCK RECORDECLTAIL 
-                       RECORDECLARATIONS RECORDERROR RECORDFIELD? RECORDFIELDNAMES RECORDGENSYM 
-                       RECORDTRAN RECORDWORD RECREDECLARE SETUPHASHARRAY SIMPLEP SUBDECLARATIONS 
-                       SUBFIELDCREATE TOPPATHS UNCLISPTRAN RECORDPRIORITY
+                       MAKECREATELST MAKECREATELST1 MAKEHASHLINKS MKACCESSFN MKCONS MKPROGN NOTOKSWAP
+                       REBINDP RECDEC? RECEVAL RECFIELDLOOK RECLISPLOOKUP RECLOOK RECLOOK1 
+                       RECORD.FIELD.VALUE RECORD.FIELD.VALUE0 RECORDACCESS RECORDALLOCATIONS 
+                       RECORDBIND RECORDBINDVAL RECORDCHAIN RECORDECL RECORDECL0 RECORDECL1 
+                       RECORDECLBLOCK RECORDECLTAIL RECORDECLARATIONS RECORDERROR RECORDFIELD? 
+                       RECORDFIELDNAMES RECORDGENSYM RECORDTRAN RECORDWORD RECREDECLARE 
+                       SETUPHASHARRAY SIMPLEP SUBDECLARATIONS SUBFIELDCREATE TOPPATHS UNCLISPTRAN 
+                       RECORDPRIORITY
                        (ENTRIES RECORDTRAN CHANGETRAN CLISPRECORD RECORDFIELD? RECORDECLARATIONS 
                               RECORDALLOCATIONS RECORDACCESS RECORDFIELDNAMES RECLOOK SETUPHASHARRAY
                               FIELDLOOK RECORD.FIELD.VALUE DECLARERECORD RECORDPRIORITY)
@@ -2683,6 +2681,13 @@ Copyright (c) 1982-1988, 1990, 1993 by Venue & Xerox Corporation.
             (NULL CDRPART))
         (CONS 'LIST (CONS CARPART (CDR CDRPART]
        (T (LIST 'CONS CARPART CDRPART])
+
+(MKPROGN

+  [LAMBDA (X)
+    (COND
+       ((NULL (CDR X))
+        (CAR X))
+       (T (CONS 'PROGN X])
 )
 (DEFINEQ
 
@@ -2694,8 +2699,8 @@ Copyright (c) 1982-1988, 1990, 1993 by Venue & Xerox Corporation.
     (/SET 'RECORDINIT])
 )
 
-(RPAQQ PATGENSYMVARS
 (GENSYMVARS%: $$1 $$2 $$3 $$4 $$5 $$6 $$7 $$8 $$9 $$10 $$11 $$12 $$13 $$14 
-                                $$15 $$16 $$17))
+(RPAQQ PATGENSYMVARS
 
+       (GENSYMVARS%: $$1 $$2 $$3 $$4 $$5 $$6 $$7 $$8 $$9 $$10 $$11 $$12 $$13 $$14 $$15 $$16 $$17))
 
 (RPAQ? RECORDINIT
 )
 
@@ -2865,8 +2870,9 @@ Copyright (c) 1982-1988, 1990, 1993 by Venue & Xerox Corporation.
 
 (RPAQQ MSBLIP
 "sysout and inform Masinter@PARC")
 
-(RPAQQ NOSIDEFNS
 (fetch CONS NLISTP PROGN APPEND LIST NEQ MEMB MEMBER FMEMB ASSOC TAILP COPY 
-                            create ELT ELTD AND OR ADD1 SUB1 IPLUS IDIFFERENCE EQ EQUAL NOT NULL))
+(RPAQQ NOSIDEFNS
 
+       (fetch CONS NLISTP PROGN APPEND LIST NEQ MEMB MEMBER FMEMB ASSOC TAILP COPY create ELT ELTD 
+              AND OR ADD1 SUB1 IPLUS IDIFFERENCE EQ EQUAL NOT NULL))
 
 (RPAQQ RECORDSUBSTFLG
 NIL)
 
@@ -2880,61 +2886,61 @@ Copyright (c) 1982-1988, 1990, 1993 by Venue & Xerox Corporation.
 
 (RPAQQ CLISPRECORDWORDS
 (smashing using copying reusing SMASHING USING COPYING REUSING))
 
-(PUTPROPS /REPLACE
 CLISPWORD
 (RECORDTRAN . /replace))
+(PUTPROPS /REPLACE CLISPWORD
 (RECORDTRAN . /replace))
 
-(PUTPROPS COPYING
 CLISPWORD
 (RECORDTRAN . copying))
+(PUTPROPS COPYING CLISPWORD
 (RECORDTRAN . copying))
 
-(PUTPROPS FETCH
 CLISPWORD
 (RECORDTRAN . fetch))
+(PUTPROPS FETCH CLISPWORD
 (RECORDTRAN . fetch))
 
-(PUTPROPS FFETCH
 CLISPWORD
 (RECORDTRAN . ffetch))
+(PUTPROPS FFETCH CLISPWORD
 (RECORDTRAN . ffetch))
 
-(PUTPROPS FREPLACE
 CLISPWORD
 (RECORDTRAN . freplace))
+(PUTPROPS FREPLACE CLISPWORD
 (RECORDTRAN . freplace))
 
-(PUTPROPS REPLACE
 CLISPWORD
 (RECORDTRAN . replace))
+(PUTPROPS REPLACE CLISPWORD
 (RECORDTRAN . replace))
 
-(PUTPROPS REUSING
 CLISPWORD
 (RECORDTRAN . reusing))
+(PUTPROPS REUSING CLISPWORD
 (RECORDTRAN . reusing))
 
-(PUTPROPS SMASHING
 CLISPWORD
 (RECORDTRAN . smashing))
+(PUTPROPS SMASHING CLISPWORD
 (RECORDTRAN . smashing))
 
-(PUTPROPS TYPE?
 CLISPWORD
 (RECORDTRAN . type?))
+(PUTPROPS TYPE? CLISPWORD
 (RECORDTRAN . type?))
 
-(PUTPROPS USING
 CLISPWORD
 (RECORDTRAN . using))
+(PUTPROPS USING CLISPWORD
 (RECORDTRAN . using))
 
-(PUTPROPS /replace
 CLISPWORD
 (RECORDTRAN . /replace))
+(PUTPROPS /replace CLISPWORD
 (RECORDTRAN . /replace))
 
-(PUTPROPS copying
 CLISPWORD
 (RECORDTRAN . copying))
+(PUTPROPS copying CLISPWORD
 (RECORDTRAN . copying))
 
-(PUTPROPS fetch
 CLISPWORD
 (RECORDTRAN . fetch))
+(PUTPROPS fetch CLISPWORD
 (RECORDTRAN . fetch))
 
-(PUTPROPS ffetch
 CLISPWORD
 (RECORDTRAN . ffetch))
+(PUTPROPS ffetch CLISPWORD
 (RECORDTRAN . ffetch))
 
-(PUTPROPS freplace
 CLISPWORD
 (RECORDTRAN . freplace))
+(PUTPROPS freplace CLISPWORD
 (RECORDTRAN . freplace))
 
-(PUTPROPS replace
 CLISPWORD
 (RECORDTRAN . replace))
+(PUTPROPS replace CLISPWORD
 (RECORDTRAN . replace))
 
-(PUTPROPS reusing
 CLISPWORD
 (RECORDTRAN . reusing))
+(PUTPROPS reusing CLISPWORD
 (RECORDTRAN . reusing))
 
-(PUTPROPS smashing
 CLISPWORD
 (RECORDTRAN . smashing))
+(PUTPROPS smashing CLISPWORD
 (RECORDTRAN . smashing))
 
-(PUTPROPS type?
 CLISPWORD
 (RECORDTRAN . type?))
+(PUTPROPS type? CLISPWORD
 (RECORDTRAN . type?))
 
-(PUTPROPS using
 CLISPWORD
 (RECORDTRAN . using))
+(PUTPROPS using CLISPWORD
 (RECORDTRAN . using))
 
-(PUTPROPS OF
 CLISPWORD
 (RECORDTRAN . of))
+(PUTPROPS OF CLISPWORD
 (RECORDTRAN . of))
 
-(PUTPROPS of
 CLISPWORD
 (RECORDTRAN . of))
+(PUTPROPS of CLISPWORD
 (RECORDTRAN . of))
 
-(PUTPROPS WITH
 CLISPWORD
 (RECORDTRAN . with))
+(PUTPROPS WITH CLISPWORD
 (RECORDTRAN . with))
 
-(PUTPROPS with
 CLISPWORD
 (RECORDTRAN . with))
+(PUTPROPS with CLISPWORD
 (RECORDTRAN . with))
 
-(PUTPROPS CREATE
 CLISPWORD
 (RECORDTRAN . create))
+(PUTPROPS CREATE CLISPWORD
 (RECORDTRAN . create))
 
-(PUTPROPS create
 CLISPWORD
 (RECORDTRAN . create))
+(PUTPROPS create CLISPWORD
 (RECORDTRAN . create))
 
-(PUTPROPS INITRECORD
 CLISPWORD
 (RECORDTRAN . initrecord))
+(PUTPROPS INITRECORD CLISPWORD
 (RECORDTRAN . initrecord))
 
-(PUTPROPS initrecord
 CLISPWORD
 (RECORDTRAN . initrecord))
+(PUTPROPS initrecord CLISPWORD
 (RECORDTRAN . initrecord))
 (DECLARE%: DONTCOPY 
 (PUTDEF (QUOTE RECORDTYPES) (QUOTE FILEPKGCOMS) '[(COM MACRO
                                                        (X (IFPROP USERRECORDTYPE . X)
@@ -2944,13 +2950,13 @@ Copyright (c) 1982-1988, 1990, 1993 by Venue & Xerox Corporation.
                                                                                  (MOVD? 'RECORD FN])
 )
 
-(PUTPROPS HASHLINK
 USERRECORDTYPE
 [LAMBDA (DEC)
-                                                 (CONS 'HASHRECORD (CDR DEC])
+(PUTPROPS HASHLINK USERRECORDTYPE
 [LAMBDA (DEC)
+                                             (CONS 'HASHRECORD (CDR DEC])
 
-(PUTPROPS ACCESSFN
 USERRECORDTYPE
 [LAMBDA (DEC)
-                                                 (CONS 'ACCESSFNS (CDR DEC])
+(PUTPROPS ACCESSFN USERRECORDTYPE
 [LAMBDA (DEC)
+                                             (CONS 'ACCESSFNS (CDR DEC])
 
-(PUTPROPS SYNONYM
 USERRECORDTYPE

+(PUTPROPS SYNONYM USERRECORDTYPE
 
           [LAMBDA (DEC)
                  (CONS 'RECORD (CONS (CADR DEC)
                                      (CONS [CAR (OR (LISTP (CADDR DEC))
@@ -2962,9 +2968,9 @@ Copyright (c) 1982-1988, 1990, 1993 by Venue & Xerox Corporation.
                                                                                 X]
                                                   (CDDDR DEC])
 
-(ADDTOVAR CLISPRECORDTYPES
 RECORD TYPERECORD PROPRECORD HASHLINK ACCESSFN ACCESSFNS HASHRECORD 
-                                     ATOMRECORD ARRAYRECORD DATATYPE BLOCKRECORD ASSOCRECORD 
-                                     CACCESSFNS ARRAYBLOCK SYNONYM)
+(ADDTOVAR CLISPRECORDTYPES
 
+          RECORD TYPERECORD PROPRECORD HASHLINK ACCESSFN ACCESSFNS HASHRECORD ATOMRECORD ARRAYRECORD
+                DATATYPE BLOCKRECORD ASSOCRECORD CACCESSFNS ARRAYBLOCK SYNONYM)
 
 [MAPC '(RECORD
 TYPERECORD PROPRECORD HASHLINK ACCESSFN ACCESSFNS HASHRECORD ATOMRECORD 
               ARRAYRECORD DATATYPE BLOCKRECORD ASSOCRECORD CACCESSFNS ARRAYBLOCK SYNONYM)
@@ -2973,76 +2979,76 @@ Copyright (c) 1982-1988, 1990, 1993 by Venue & Xerox Corporation.
 (DECLARE%: DONTCOPY 
 (DECLARE%: EVAL@COMPILE 
 
-(PUTPROPS CREATE.RECORD
 MACRO
 ((FIELDNAMES NAME FIELDINFO CREATEINFO TYPECHECK SUBDECS 
-                                              ALLOCATIONS DEFAULTFIELDS DECL PRIORITY)
-                                       (LIST FIELDNAMES NAME FIELDINFO CREATEINFO TYPECHECK SUBDECS 
-                                             ALLOCATIONS DEFAULTFIELDS DECL PRIORITY)))
+(PUTPROPS CREATE.RECORD MACRO ((FIELDNAMES NAME FIELDINFO CREATEINFO TYPECHECK SUBDECS ALLOCATIONS 
+                                      DEFAULTFIELDS DECL PRIORITY)
+                               (LIST FIELDNAMES NAME FIELDINFO CREATEINFO TYPECHECK SUBDECS 
+                                     ALLOCATIONS DEFAULTFIELDS DECL PRIORITY)))
 
-(PUTPROPS ADD.RECORD.SUBDECS
 MACRO
 ((TRAN NEWVALUE)
-                                            (FRPLACA (CDR (CDDDDR TRAN))
-                                                   (NCONC1 (CADR (CDDDDR TRAN))
-                                                          NEWVALUE))))
+[PUTPROPS ADD.RECORD.SUBDECS MACRO ((TRAN NEWVALUE)
+                                    (FRPLACA (CDR (CDDDDR TRAN))
+                                           (NCONC1 (CADR (CDDDDR TRAN))
+                                                  NEWVALUE]
 
-(PUTPROPS RECORD.ALLOCATIONS
 MACRO
 ((TRAN)
-                                            (CADDR (CDDDDR TRAN))))
+[PUTPROPS RECORD.ALLOCATIONS MACRO ((TRAN)
+                                    (CADDR (CDDDDR TRAN]
 
-(PUTPROPS RECORD.CREATEINFO
 MACRO
 ((TRAN)
-                                           (CADDDR TRAN)))
+(PUTPROPS RECORD.CREATEINFO MACRO ((TRAN)
+                                   (CADDDR TRAN)))
 
-(PUTPROPS RECORD.DEFAULTFIELDS
 MACRO
 ((TRAN)
-                                              (CADDDR (CDDDDR TRAN))))
+[PUTPROPS RECORD.DEFAULTFIELDS MACRO ((TRAN)
+                                      (CADDDR (CDDDDR TRAN]
 
-(PUTPROPS RECORD.FIELDINFO
 MACRO
 ((TRAN)
-                                          (CADDR TRAN)))
+(PUTPROPS RECORD.FIELDINFO MACRO ((TRAN)
+                                  (CADDR TRAN)))
 
-(PUTPROPS RECORD.FIELDNAMES
 MACRO
 ((TRAN)
-                                           (CAR TRAN)))
+(PUTPROPS RECORD.FIELDNAMES MACRO ((TRAN)
+                                   (CAR TRAN)))
 
-(PUTPROPS RECORD.NAME
 MACRO
 ((TRAN)
-                                     (CADR TRAN)))
+(PUTPROPS RECORD.NAME MACRO ((TRAN)
+                             (CADR TRAN)))
 
-(PUTPROPS RECORD.SUBDECS
 MACRO
 [LAMBDA (TRAN)
-                                         (CADR (CDDDDR TRAN])
+[PUTPROPS RECORD.SUBDECS MACRO (LAMBDA (TRAN)
+                                 (CADR (CDDDDR TRAN]
 
-(PUTPROPS RECORD.TYPECHECK
 MACRO
 ((TRAN)
-                                          (CAR (CDDDDR TRAN))))
+[PUTPROPS RECORD.TYPECHECK MACRO ((TRAN)
+                                  (CAR (CDDDDR TRAN]
 
-(PUTPROPS SET.RECORD.ALLOCATIONS
 MACRO
 ((TRAN NEWVALUE)
-                                                (FRPLACA (CDDR (CDDDDR TRAN))
-                                                       NEWVALUE)))
+(PUTPROPS SET.RECORD.ALLOCATIONS MACRO ((TRAN NEWVALUE)
+                                        (FRPLACA (CDDR (CDDDDR TRAN))
+                                               NEWVALUE)))
 
-(PUTPROPS SET.RECORD.CREATEINFO
 MACRO
 ((TRAN NEWVALUE)
-                                               (FRPLACA (CDDDR TRAN)
-                                                      NEWVALUE)))
+(PUTPROPS SET.RECORD.CREATEINFO MACRO ((TRAN NEWVALUE)
+                                       (FRPLACA (CDDDR TRAN)
+                                              NEWVALUE)))
 
-(PUTPROPS SET.RECORD.DEFAULTFIELDS
 MACRO
 ((TRAN NEWVALUE)
-                                                  (FRPLACA (CDDDR (CDDDDR TRAN))
-                                                         NEWVALUE)))
+(PUTPROPS SET.RECORD.DEFAULTFIELDS MACRO ((TRAN NEWVALUE)
+                                          (FRPLACA (CDDDR (CDDDDR TRAN))
+                                                 NEWVALUE)))
 
-(PUTPROPS SET.RECORD.FIELDNAMES
 MACRO
 ((TRAN NEWVALUE)
-                                               (FRPLACA TRAN NEWVALUE)))
+(PUTPROPS SET.RECORD.FIELDNAMES MACRO ((TRAN NEWVALUE)
+                                       (FRPLACA TRAN NEWVALUE)))
 
-(PUTPROPS SET.RECORD.NAME
 MACRO
 ((TRAN NEWVALUE)
-                                         (FRPLACA (CDR TRAN)
-                                                NEWVALUE)))
+(PUTPROPS SET.RECORD.NAME MACRO ((TRAN NEWVALUE)
+                                 (FRPLACA (CDR TRAN)
+                                        NEWVALUE)))
 
-(PUTPROPS SET.RECORD.TYPECHECK
 MACRO
 ((TRAN NEWVALUE)
-                                              (FRPLACA (CDDDDR TRAN)
-                                                     NEWVALUE)))
+(PUTPROPS SET.RECORD.TYPECHECK MACRO ((TRAN NEWVALUE)
+                                      (FRPLACA (CDDDDR TRAN)
+                                             NEWVALUE)))
 
-(PUTPROPS RECORD.DECL
 MACRO
 ((X)
-                                     (CAR (FNTH X 9))))
+[PUTPROPS RECORD.DECL MACRO ((X)
+                             (CAR (FNTH X 9]
 
-(PUTPROPS SET.RECORD.DECL
 MACRO
 ((X Y)
-                                         (FRPLACA (FNTH X 9)
-                                                Y)))
+(PUTPROPS SET.RECORD.DECL MACRO ((X Y)
+                                 (FRPLACA (FNTH X 9)
+                                        Y)))
 
-(PUTPROPS RECORD.PRIORITY
 MACRO
 ((X)
-                                         (CAR (FNTH X 10))))
+[PUTPROPS RECORD.PRIORITY MACRO ((X)
+                                 (CAR (FNTH X 10]
 
-(PUTPROPS SET.RECORD.PRIORITY
 MACRO
 ((X Y)
-                                             (/RPLACA (FNTH X 10)
-                                                    Y)))
+(PUTPROPS SET.RECORD.PRIORITY MACRO ((X Y)
+                                     (/RPLACA (FNTH X 10)
+                                            Y)))
 )
 )
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
@@ -3050,8 +3056,8 @@ Copyright (c) 1982-1988, 1990, 1993 by Venue & Xerox Corporation.
 (LOCALVARS . T)
 )
 
-(ADDTOVAR SYSLOCALVARS
 $$1 $$2 $$3 $$4 $$5 $$6 $$7 $$8 $$9 $$10 $$11 $$12 $$13 $$14 $$15 $$16 
-                               $$17)
+(ADDTOVAR SYSLOCALVARS
 
+          $$1 $$2 $$3 $$4 $$5 $$6 $$7 $$8 $$9 $$10 $$11 $$12 $$13 $$14 $$15 $$16 $$17)
 
 
 
@@ -3062,25 +3068,25 @@ Copyright (c) 1982-1988, 1990, 1993 by Venue & Xerox Corporation.
 
 (MOVD 'REPLACEFIELD 'FREPLACEFIELD)
 
-(PUTPROPS FETCHFIELD
 LISPFN
 FETCHFIELD)
+(PUTPROPS FETCHFIELD LISPFN
 FETCHFIELD)
 
-(PUTPROPS FREPLACEFIELD
 LISPFN
 FREPLACEFIELD)
+(PUTPROPS FREPLACEFIELD LISPFN
 FREPLACEFIELD)
 
-(PUTPROPS REPLACEFIELD
 LISPFN
 REPLACEFIELD)
+(PUTPROPS REPLACEFIELD LISPFN
 REPLACEFIELD)
 
-(PUTPROPS FETCHFIELD
 CLISPCLASS
 FETCHFIELD)
+(PUTPROPS FETCHFIELD CLISPCLASS
 FETCHFIELD)
 
-(PUTPROPS FFETCHFIELD
 CLISPCLASS
 FETCHFIELD)
+(PUTPROPS FFETCHFIELD CLISPCLASS
 FETCHFIELD)
 
-(PUTPROPS FREPLACEFIELD
 CLISPCLASS
 REPLACEFIELD)
+(PUTPROPS FREPLACEFIELD CLISPCLASS
 REPLACEFIELD)
 
-(PUTPROPS /REPLACEFIELD
 CLISPCLASS
 REPLACEFIELD)
+(PUTPROPS /REPLACEFIELD CLISPCLASS
 REPLACEFIELD)
 
-(PUTPROPS REPLACEFIELD
 CLISPCLASS
 REPLACEFIELD)
+(PUTPROPS REPLACEFIELD CLISPCLASS
 REPLACEFIELD)
 
-(PUTPROPS FETCHFIELD
 CLISPCLASSDEF
 (ACCESS FETCHFIELD NIL FFETCHFIELD))
+(PUTPROPS FETCHFIELD CLISPCLASSDEF
 (ACCESS FETCHFIELD NIL FFETCHFIELD))
 
-(PUTPROPS REPLACEFIELD
 CLISPCLASSDEF
 (ACCESS REPLACEFIELD /REPLACEFIELD FREPLACEFIELD))
+(PUTPROPS REPLACEFIELD CLISPCLASSDEF
 (ACCESS REPLACEFIELD /REPLACEFIELD FREPLACEFIELD))
 
 (ADDTOVAR DECLWORDS
 FFETCHFIELD FETCHFIELD REPLACEFIELD FREPLACEFIELD /REPLACEFIELD)
 
@@ -3097,41 +3103,41 @@ Copyright (c) 1982-1988, 1990, 1993 by Venue & Xerox Corporation.
 (* ; "for CHANGETRAN")

 
 
-(PUTPROPS ADD
 CLISPWORD
 (CHANGETRAN . add))
+(PUTPROPS ADD CLISPWORD
 (CHANGETRAN . add))
 
-(PUTPROPS CHANGE
 CLISPWORD
 (CHANGETRAN . change))
+(PUTPROPS CHANGE CLISPWORD
 (CHANGETRAN . change))
 
-(PUTPROPS POP
 CLISPWORD
 (CHANGETRAN . pop))
+(PUTPROPS POP CLISPWORD
 (CHANGETRAN . pop))
 
-(PUTPROPS PUSH
 CLISPWORD
 (CHANGETRAN . push))
+(PUTPROPS PUSH CLISPWORD
 (CHANGETRAN . push))
 
-(PUTPROPS PUSHNEW
 CLISPWORD
 (CHANGETRAN . pushnew))
+(PUTPROPS PUSHNEW CLISPWORD
 (CHANGETRAN . pushnew))
 
-(PUTPROPS PUSHLIST
 CLISPWORD
 (CHANGETRAN . pushlist))
+(PUTPROPS PUSHLIST CLISPWORD
 (CHANGETRAN . pushlist))
 
-(PUTPROPS add
 CLISPWORD
 (CHANGETRAN . add))
+(PUTPROPS add CLISPWORD
 (CHANGETRAN . add))
 
-(PUTPROPS change
 CLISPWORD
 (CHANGETRAN . change))
+(PUTPROPS change CLISPWORD
 (CHANGETRAN . change))
 
-(PUTPROPS pop
 CLISPWORD
 (CHANGETRAN . pop))
+(PUTPROPS pop CLISPWORD
 (CHANGETRAN . pop))
 
-(PUTPROPS push
 CLISPWORD
 (CHANGETRAN . push))
+(PUTPROPS push CLISPWORD
 (CHANGETRAN . push))
 
-(PUTPROPS pushnew
 CLISPWORD
 (CHANGETRAN . pushnew))
+(PUTPROPS pushnew CLISPWORD
 (CHANGETRAN . pushnew))
 
-(PUTPROPS pushlist
 CLISPWORD
 (CHANGETRAN . pushlist))
+(PUTPROPS pushlist CLISPWORD
 (CHANGETRAN . pushlist))
 
-(PUTPROPS SWAP
 CLISPWORD
 (CHANGETRAN . swap))
+(PUTPROPS SWAP CLISPWORD
 (CHANGETRAN . swap))
 
-(PUTPROPS swap
 CLISPWORD
 (CHANGETRAN . swap))
+(PUTPROPS swap CLISPWORD
 (CHANGETRAN . swap))
 
-(PUTPROPS /push
 CLISPWORD
 (CHANGETRAN . /push))
+(PUTPROPS /push CLISPWORD
 (CHANGETRAN . /push))
 
-(PUTPROPS /pushnew
 CLISPWORD
 (CHANGETRAN . /pushnew))
+(PUTPROPS /pushnew CLISPWORD
 (CHANGETRAN . /pushnew))
 
-(PUTPROPS /PUSH
 CLISPWORD
 (CHANGETRAN . /push))
+(PUTPROPS /PUSH CLISPWORD
 (CHANGETRAN . /push))
 
-(PUTPROPS /PUSHNEW
 CLISPWORD
 (CHANGETRAN . /pushnew))
+(PUTPROPS /PUSHNEW CLISPWORD
 (CHANGETRAN . /pushnew))
 (DEFINEQ
 
 (CHANGETRAN

@@ -3285,37 +3291,37 @@ Copyright (c) 1982-1988, 1990, 1993 by Venue & Xerox Corporation.
           (RECORDERROR
 'CHANGE FORM RECORDEXPRESSION])
 )
 
-(PUTPROPS GETP
 SETFN
 PUT)
+(PUTPROPS GETP SETFN
 PUT)
 
-(PUTPROPS GETPROP
 SETFN
 PUTPROP)
+(PUTPROPS GETPROP SETFN
 PUTPROP)
 
-(PUTPROPS EVALV
 SETFN
 SET)
+(PUTPROPS EVALV SETFN
 SET)
 
-(PUTPROPS GETATOMVAL
 SETFN
 SETATOMVAL)
+(PUTPROPS GETATOMVAL SETFN
 SETATOMVAL)
 
-(PUTPROPS OPENR
 SETFN
 CLOSER)
+(PUTPROPS OPENR SETFN
 CLOSER)
 
-(PUTPROPS WORDCONTENTS
 SETFN
 SETWORDCONTENTS)
+(PUTPROPS WORDCONTENTS SETFN
 SETWORDCONTENTS)
 
-(PUTPROPS \GETBASE
 SETFN
 \PUTBASE)
+(PUTPROPS \GETBASE SETFN
 \PUTBASE)
 
-(PUTPROPS \GETBASEBYTE
 SETFN
 \PUTBASEBYTE)
+(PUTPROPS \GETBASEBYTE SETFN
 \PUTBASEBYTE)
 
-(PUTPROPS \GETBASEBIT
 SETFN
 \PUTBASEBIT)
+(PUTPROPS \GETBASEBIT SETFN
 \PUTBASEBIT)
 
-(PUTPROPS FETCHFIELD
 SETFN
 REPLACEFIELD)
+(PUTPROPS FETCHFIELD SETFN
 REPLACEFIELD)
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY
 
 (BLOCK%: RECORDBLOCK ACCESSDEF ACCESSDEF4 ALLFIELDS ALLOCHASH ALLPATHS CHANGETRAN CHANGETRAN1 
        CHECKDEFS CHECKRECORDNAME CLISPRECORD CONSFN COPY1 CREATEFIELDS CSUBST RECONS CSUBSTLST 
        DECLARERECORD DECLSUBFIELD DWIMIFYREC EMBEDPROG FIELDLOOK FIELDNAMESIN FINDFIELDUSAGE FIXDATUM
        FIXFIELDORDER GETFIELDFORCREATE GETSETQ HASHLINKS JOINDEF LISTRECORDEFS MAKEACCESS MAKEACCESS1
-       MAKECREATE0 MAKECREATE1 MAKECREATELST MAKECREATELST1 MAKEHASHLINKS MKACCESSFN MKCONS NOTOKSWAP
-       REBINDP RECDEC? RECEVAL RECFIELDLOOK RECLISPLOOKUP RECLOOK RECLOOK1 RECORD.FIELD.VALUE 
-       RECORD.FIELD.VALUE0 RECORDACCESS RECORDALLOCATIONS RECORDBIND RECORDBINDVAL RECORDCHAIN 
-       RECORDECL RECORDECL0 RECORDECL1 RECORDECLBLOCK RECORDECLTAIL RECORDECLARATIONS RECORDERROR 
-       RECORDFIELD? RECORDFIELDNAMES RECORDGENSYM RECORDTRAN RECORDWORD RECREDECLARE SETUPHASHARRAY 
-       SIMPLEP SUBDECLARATIONS SUBFIELDCREATE TOPPATHS UNCLISPTRAN RECORDPRIORITY
+       MAKECREATE0 MAKECREATE1 MAKECREATELST MAKECREATELST1 MAKEHASHLINKS MKACCESSFN MKCONS MKPROGN 
+       NOTOKSWAP REBINDP RECDEC? RECEVAL RECFIELDLOOK RECLISPLOOKUP RECLOOK RECLOOK1 
+       RECORD.FIELD.VALUE RECORD.FIELD.VALUE0 RECORDACCESS RECORDALLOCATIONS RECORDBIND RECORDBINDVAL
+       RECORDCHAIN RECORDECL RECORDECL0 RECORDECL1 RECORDECLBLOCK RECORDECLTAIL RECORDECLARATIONS 
+       RECORDERROR RECORDFIELD? RECORDFIELDNAMES RECORDGENSYM RECORDTRAN RECORDWORD RECREDECLARE 
+       SETUPHASHARRAY SIMPLEP SUBDECLARATIONS SUBFIELDCREATE TOPPATHS UNCLISPTRAN RECORDPRIORITY
        (ENTRIES RECORDTRAN CHANGETRAN CLISPRECORD RECORDFIELD? RECORDECLARATIONS RECORDALLOCATIONS 
               RECORDACCESS RECORDFIELDNAMES RECLOOK SETUPHASHARRAY FIELDLOOK RECORD.FIELD.VALUE 
               DECLARERECORD RECORDPRIORITY)
@@ -3346,10 +3352,10 @@ Copyright (c) 1982-1988, 1990, 1993 by Venue & Xerox Corporation.
 )
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
 
-(ADDTOVAR NLAMA
 EDITREC SAVEONSYSRECLST RECORDALLOCATIONS RECORDECLARATIONS SYNONYM ARRAYBLOCK 
-                          CACCESSFNS ASSOCRECORD BLOCKRECORD DATATYPE ARRAYRECORD ATOMRECORD 
-                          HASHRECORD ACCESSFNS ACCESSFN HASHLINK PROPRECORD TYPERECORD RECORD 
-                          MESATYPE MESARECORD MESAARRAY)
+(ADDTOVAR NLAMA
 
+          EDITREC SAVEONSYSRECLST RECORDALLOCATIONS RECORDECLARATIONS SYNONYM ARRAYBLOCK CACCESSFNS 
+                ASSOCRECORD BLOCKRECORD DATATYPE ARRAYRECORD ATOMRECORD HASHRECORD ACCESSFNS ACCESSFN
+                HASHLINK PROPRECORD TYPERECORD RECORD MESATYPE MESARECORD MESAARRAY)
 
 (ADDTOVAR NLAML
 )
 
@@ -3357,35 +3363,35 @@ Copyright (c) 1982-1988, 1990, 1993 by Venue & Xerox Corporation.
 )
 (PUTPROPS RECORD COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1993))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (7288 65228 (RECORDTRAN 7298 . 20472) (RECREDECLARE 20474 . 20769) (RECREDECLARE1 20771
- . 21116) (RECREDECLARE2 21118 . 21793) (RECORDECL 21795 . 22614) (RECORDFIELD? 22616 . 23413) (
-RECORDECL0 23415 . 24035) (RECORDECL1 24037 . 36088) (RECORDECLBLOCK 36090 . 41069) (RECORDECLTAIL 
-41071 . 45239) (CHECKRECORDNAME 45241 . 46149) (LISTRECORDEFS 46151 . 46927) (RECORD.REMOVE.COMMENTS 
-46929 . 47505) (DECLARERECORD 47507 . 51923) (DECLSUBFIELD 51925 . 53833) (UNCLISPTRAN 53835 . 54128) 
-(RECDEC? 54130 . 54497) (ALLOCHASH 54499 . 55228) (GETSETQ 55230 . 58610) (RECORDACCESS 58612 . 61134)
- (RECORDFIELDNAMES 61136 . 61968) (RECEVAL 61970 . 62522) (FIELDLOOK 62524 . 62605) (SIMPLEP 62607 . 
-63566) (RECORDBINDVAL 63568 . 63685) (RECORDPRIORITY 63687 . 64658) (RECORDACCESSFORM 64660 . 65226)) 
-(65229 109082 (RECORDWORD 65239 . 66014) (MAKECREATE0 66016 . 66351) (MAKECREATE1 66353 . 85688) (
-CREATEFIELDS 85690 . 86077) (REBINDP 86079 . 86403) (CSUBST 86405 . 93763) (RECONS 93765 . 93967) (
-COPY1 93969 . 94171) (CSUBSTLST 94173 . 94444) (RECORD.FIELD.VALUE 94446 . 94785) (RECORD.FIELD.VALUE0
- 94787 . 95117) (MAKECREATELST 95119 . 95377) (SMASHPATTERN 95379 . 95791) (SMASHPAT1 95793 . 96804) (
-MAKECREATELST1 96806 . 98726) (GETFIELDFORCREATE 98728 . 102082) (SUBFIELDCREATE 102084 . 104360) (
-MAKEHASHLINKS 104362 . 105576) (HASHLINKS 105578 . 106055) (RECLOOK 106057 . 107796) (ALLFIELDS 107798
- . 108255) (SUBDECLARATIONS 108257 . 109080)) (109083 134132 (CLISPRECORD 109093 . 111589) (ACCESSDEF 
-111591 . 115667) (FIELDNAMESIN 115669 . 115893) (ACCESSDEF4 115895 . 118627) (MAKEACCESS 118629 . 
-119034) (MAKEACCESS1 119036 . 124677) (MKACCESSFN 124679 . 125952) (RECFIELDLOOK 125954 . 127791) (
-RECORDCHAIN 127793 . 128321) (RECLOOK1 128323 . 128720) (SYSRECLOOK1 128722 . 129023) (TOPPATHS 129025
- . 129302) (ALLPATHS 129304 . 131838) (CHECKDEFS 131840 . 133382) (JOINDEF 133384 . 134130)) (134133 
-145444 (NOTOKSWAP 134143 . 134289) (FIXFIELDORDER 134291 . 141105) (FINDFIELDUSAGE 141107 . 142577) (
-EMBEDPROG 142579 . 145442)) (145445 151406 (RECLISPLOOKUP 145455 . 146510) (CONSFN 146512 . 146667) (
-RECORDGENSYM 146669 . 146850) (RECORDBIND 146852 . 147103) (RECORDERROR 147105 . 150035) (
-SETUPHASHARRAY 150037 . 150350) (DWIMIFYREC 150352 . 151113) (MKCONS 151115 . 151404)) (151407 151693 
-(RECORDINIT 151417 . 151691)) (151947 154755 (RECORD 151960 . 152415) (TYPERECORD 152417 . 152583) (
-PROPRECORD 152585 . 152751) (HASHLINK 152753 . 152915) (ACCESSFN 152917 . 153079) (ACCESSFNS 153081 . 
-153245) (HASHRECORD 153247 . 153413) (ATOMRECORD 153415 . 153581) (ARRAYRECORD 153583 . 153751) (
-DATATYPE 153753 . 153915) (BLOCKRECORD 153917 . 154085) (ASSOCRECORD 154087 . 154255) (CACCESSFNS 
-154257 . 154423) (ARRAYBLOCK 154425 . 154591) (SYNONYM 154593 . 154753)) (154756 159021 (
-RECORDECLARATIONS 154766 . 157293) (RECORDALLOCATIONS 157295 . 157606) (SAVEONSYSRECLST 157608 . 
-159019)) (169036 177774 (CHANGETRAN 169046 . 169188) (CHANGETRAN1 169190 . 171791) (FIXDATUM 171793 . 
-177772)) (180398 180628 (EDITREC 180408 . 180626)))))
+  (FILEMAP (NIL (7343 65283 (RECORDTRAN 7353 . 20527) (RECREDECLARE 20529 . 20824) (RECREDECLARE1 20826
+ . 21171) (RECREDECLARE2 21173 . 21848) (RECORDECL 21850 . 22669) (RECORDFIELD? 22671 . 23468) (
+RECORDECL0 23470 . 24090) (RECORDECL1 24092 . 36143) (RECORDECLBLOCK 36145 . 41124) (RECORDECLTAIL 
+41126 . 45294) (CHECKRECORDNAME 45296 . 46204) (LISTRECORDEFS 46206 . 46982) (RECORD.REMOVE.COMMENTS 
+46984 . 47560) (DECLARERECORD 47562 . 51978) (DECLSUBFIELD 51980 . 53888) (UNCLISPTRAN 53890 . 54183) 
+(RECDEC? 54185 . 54552) (ALLOCHASH 54554 . 55283) (GETSETQ 55285 . 58665) (RECORDACCESS 58667 . 61189)
+ (RECORDFIELDNAMES 61191 . 62023) (RECEVAL 62025 . 62577) (FIELDLOOK 62579 . 62660) (SIMPLEP 62662 . 
+63621) (RECORDBINDVAL 63623 . 63740) (RECORDPRIORITY 63742 . 64713) (RECORDACCESSFORM 64715 . 65281)) 
+(65284 109137 (RECORDWORD 65294 . 66069) (MAKECREATE0 66071 . 66406) (MAKECREATE1 66408 . 85743) (
+CREATEFIELDS 85745 . 86132) (REBINDP 86134 . 86458) (CSUBST 86460 . 93818) (RECONS 93820 . 94022) (
+COPY1 94024 . 94226) (CSUBSTLST 94228 . 94499) (RECORD.FIELD.VALUE 94501 . 94840) (RECORD.FIELD.VALUE0
+ 94842 . 95172) (MAKECREATELST 95174 . 95432) (SMASHPATTERN 95434 . 95846) (SMASHPAT1 95848 . 96859) (
+MAKECREATELST1 96861 . 98781) (GETFIELDFORCREATE 98783 . 102137) (SUBFIELDCREATE 102139 . 104415) (
+MAKEHASHLINKS 104417 . 105631) (HASHLINKS 105633 . 106110) (RECLOOK 106112 . 107851) (ALLFIELDS 107853
+ . 108310) (SUBDECLARATIONS 108312 . 109135)) (109138 134187 (CLISPRECORD 109148 . 111644) (ACCESSDEF 
+111646 . 115722) (FIELDNAMESIN 115724 . 115948) (ACCESSDEF4 115950 . 118682) (MAKEACCESS 118684 . 
+119089) (MAKEACCESS1 119091 . 124732) (MKACCESSFN 124734 . 126007) (RECFIELDLOOK 126009 . 127846) (
+RECORDCHAIN 127848 . 128376) (RECLOOK1 128378 . 128775) (SYSRECLOOK1 128777 . 129078) (TOPPATHS 129080
+ . 129357) (ALLPATHS 129359 . 131893) (CHECKDEFS 131895 . 133437) (JOINDEF 133439 . 134185)) (134188 
+145499 (NOTOKSWAP 134198 . 134344) (FIXFIELDORDER 134346 . 141160) (FINDFIELDUSAGE 141162 . 142632) (
+EMBEDPROG 142634 . 145497)) (145500 151566 (RECLISPLOOKUP 145510 . 146565) (CONSFN 146567 . 146722) (
+RECORDGENSYM 146724 . 146905) (RECORDBIND 146907 . 147158) (RECORDERROR 147160 . 150090) (
+SETUPHASHARRAY 150092 . 150405) (DWIMIFYREC 150407 . 151168) (MKCONS 151170 . 151459) (MKPROGN 151461
+ . 151564)) (151567 151853 (RECORDINIT 151577 . 151851)) (152082 154890 (RECORD 152095 . 152550) (
+TYPERECORD 152552 . 152718) (PROPRECORD 152720 . 152886) (HASHLINK 152888 . 153050) (ACCESSFN 153052
+ . 153214) (ACCESSFNS 153216 . 153380) (HASHRECORD 153382 . 153548) (ATOMRECORD 153550 . 153716) (
+ARRAYRECORD 153718 . 153886) (DATATYPE 153888 . 154050) (BLOCKRECORD 154052 . 154220) (ASSOCRECORD 
+154222 . 154390) (CACCESSFNS 154392 . 154558) (ARRAYBLOCK 154560 . 154726) (SYNONYM 154728 . 154888)) 
+(154891 159156 (RECORDECLARATIONS 154901 . 157428) (RECORDALLOCATIONS 157430 . 157741) (
+SAVEONSYSRECLST 157743 . 159154)) (168425 177163 (CHANGETRAN 168435 . 168577) (CHANGETRAN1 168579 . 
+171180) (FIXDATUM 171182 . 177161)) (179755 179985 (EDITREC 179765 . 179983)))))
 STOP