Better filepkg commands

sources/ACFONT

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
 
-
(FILECREATED "13-Apr-2026 09:00:05" {WMEDLEY}<sources>ACFONT.;10
 43480  
+
(FILECREATED "15-Apr-2026 09:04:48" {WMEDLEY}<sources>ACFONT.;11
 42920  
 
       :EDIT-BY rmk
 
       :CHANGES-TO (VARS ACFONTCOMS)
 
-      :PREVIOUS-DATE "13-Apr-2026 08:59:25" {WMEDLEY}<sources>ACFONT.;9)
+      :PREVIOUS-DATE "13-Apr-2026 09:00:05" {WMEDLEY}<sources>ACFONT.;10)
 
 
 (PRETTYCOMPRINT ACFONTCOMS)
@@ -19,15 +19,10 @@
         (FNS ACFONT.FILEP ACFONT.GETCHARSET \READACFONTBOXES \READACFONTFILE \ACCHARIMAGELIST 
              \ACCHARWIDTHLIST \GETFBB \ACCHARPOSLIST \ACROTATECHAR \FACECODE \FAMILYCODE)
         (PROP FILETYPE ACFONT)
-        [P (CL:UNLESS (ASSOC 'AC DISPLAYCHARSETFNS)
-               (RPAQ DISPLAYCHARSETFNS
 (NCONC1 DISPLAYCHARSETFNS '(AC ACFONT.FILEP ACFONT.GETCHARSET)
-                                              )))]
+        [APPENDVARS (DISPLAYCHARSETFNS '(AC ACFONT.FILEP ACFONT.GETCHARSET]
         (COMS                                                (* ; "STRIKE format files")

               (FNS STRIKEFONT.FILEP STRIKEFONT.GETCHARSET WRITESTRIKEFONTFILE STRIKECSINFO)
-              (P (CL:UNLESS (ASSOC 'STRIKE DISPLAYCHARSETFNS)
-                     (RPAQ DISPLAYCHARSETFNS
 (NCONC1 DISPLAYCHARSETFNS '(STRIKE STRIKEFONT.FILEP 
-                                                                               STRIKEFONT.GETCHARSET)
-                                                    )))])
+              (APPENDVARS (DISPLAYCHARSETFNS '(STRIKE STRIKEFONT.FILEP STRIKEFONT.GETCHARSET])
 
 
 
@@ -445,8 +440,7 @@
 
 (PUTPROPS ACFONT
 FILETYPE
 CL:COMPILE-FILE)
 
-(CL:UNLESS (ASSOC 'AC DISPLAYCHARSETFNS)
-    (RPAQ DISPLAYCHARSETFNS
 (NCONC1 DISPLAYCHARSETFNS '(AC ACFONT.FILEP ACFONT.GETCHARSET))))
+(APPENDTOVAR DISPLAYCHARSETFNS
 '(AC ACFONT.FILEP ACFONT.GETCHARSET))
 
 
 
@@ -691,14 +685,12 @@
                          CHARSETDESCENT ← (fetch
 (CHARSETINFO CHARSETDESCENT) of
 CSINFO])
 )
 
-(CL:UNLESS (ASSOC 'STRIKE DISPLAYCHARSETFNS)
-    (RPAQ DISPLAYCHARSETFNS
 (NCONC1 DISPLAYCHARSETFNS '(STRIKE STRIKEFONT.FILEP STRIKEFONT.GETCHARSET
-                                                              ))))
+(APPENDTOVAR DISPLAYCHARSETFNS
 '(STRIKE STRIKEFONT.FILEP STRIKEFONT.GETCHARSET))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3065 28012 (ACFONT.FILEP 3075 . 3959) (ACFONT.GETCHARSET 3961 . 4571) (\READACFONTBOXES
- 4573 . 6797) (\READACFONTFILE 6799 . 19648) (\ACCHARIMAGELIST 19650 . 19987) (\ACCHARWIDTHLIST 19989
- . 21249) (\GETFBB 21251 . 24529) (\ACCHARPOSLIST 24531 . 25577) (\ACROTATECHAR 25579 . 26129) (
-\FACECODE 26131 . 26721) (\FAMILYCODE 26723 . 28010)) (28241 43238 (STRIKEFONT.FILEP 28251 . 29139) (
-STRIKEFONT.GETCHARSET 29141 . 34731) (WRITESTRIKEFONTFILE 34733 . 39642) (STRIKECSINFO 39644 . 43236))
+  (FILEMAP (NIL (2704 27651 (ACFONT.FILEP 2714 . 3598) (ACFONT.GETCHARSET 3600 . 4210) (\READACFONTBOXES
+ 4212 . 6436) (\READACFONTFILE 6438 . 19287) (\ACCHARIMAGELIST 19289 . 19626) (\ACCHARWIDTHLIST 19628
+ . 20888) (\GETFBB 20890 . 24168) (\ACCHARPOSLIST 24170 . 25216) (\ACROTATECHAR 25218 . 25768) (
+\FACECODE 25770 . 26360) (\FAMILYCODE 26362 . 27649)) (27814 42811 (STRIKEFONT.FILEP 27824 . 28712) (
+STRIKEFONT.GETCHARSET 28714 . 34304) (WRITESTRIKEFONTFILE 34306 . 39215) (STRIKECSINFO 39217 . 42809))
 )))
 STOP