fix to HCFILES to pick up sketch files; bug fix sketch (#840)

* fix to HCFILES to pick up sketch files; bug fix sketch

* redo HCFILES patch to pick up .SKETCH and .TXT files

internal/MEDLEY-UTILS

@@ -1,10 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-
(FILECREATED "16-Jul-2022 22:08:34" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;2|
 15771  
+
(FILECREATED "17-Jul-2022 12:44:56" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;9|
 15959  
 
-      :CHANGES-TO (FNS MAKE-FULLER-DB)
+      :CHANGES-TO (FNS HCFILES)
 
-      :PREVIOUS-DATE "25-Jun-2022 17:17:53" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;1|)
+      :PREVIOUS-DATE "16-Jul-2022 22:08:34" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;8|)
 
 
 (PRETTYCOMPRINT MEDLEY-UTILSCOMS)
@@ -203,7 +203,8 @@
 (DEFINEQ
 
 (HCFILES

-  (LAMBDA (TFILE DEST REDOFLG TOPDIRLEN)
                  (* \; "Edited 21-Jun-2022 22:59 by larry")


+  (LAMBDA (TFILE DEST REDOFLG TOPDIRLEN)
                  (* \; "Edited 17-Jul-2022 12:44 by larry")


+                                                          (* \; "Edited 21-Jun-2022 22:59 by larry")


                                                           (* \; "Edited 31-May-2022 09:31 by larry")


                                                           (* \; "Edited 20-Feb-2022 12:16 by larry")


                                                           (* \; "Edited 21-Aug-2021 20:56 by larry")

@@ -224,7 +225,9 @@
 
         (* |;;| "first deal with files in this directory")

 
-        (|for|
 X |in|
 (DIRECTORY (CONCAT TFILE "*.TED*;")) |do|
 (HCFILES
 X DEST REDOFLG TOPDIRLEN))
+        (FOR
 EXT IN
 '("TED*" "SKETCH" "T*XT")
+           DO
 (|for|
 X |in|
 (DIRECTORY (CONCAT TFILE "*." EXT ";*"))
+                 |do|
 (HCFILES
 X DEST REDOFLG TOPDIRLEN)))
 
         (* |;;| " then deal with subdirs ")

 
@@ -289,7 +292,7 @@
 
 (DEFCOMMAND "pick" (FIRST
 . REST) (PICK
 FIRST REST))
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (734 8709 (GATHER-INFO 744 . 6154) (MAKE-FULLER-DB 6156 . 6846) (MEDLEY-FIX-LINKS 6848
- . 7245) (MEDLEY-FIX-DATES 7247 . 7489) (PICK 7491 . 8707)) (9748 11541 (MAKE-EXPORTS-ALL 9758 . 10717
-) (MAKE-WHEREIS-HASH 10719 . 11539)) (11576 15641 (HCFILES 11586 . 15326) (BADFILE 15328 . 15639)))))
+  (FILEMAP (NIL (727 8702 (GATHER-INFO 737 . 6147) (MAKE-FULLER-DB 6149 . 6839) (MEDLEY-FIX-LINKS 6841
+ . 7238) (MEDLEY-FIX-DATES 7240 . 7482) (PICK 7484 . 8700)) (9741 11534 (MAKE-EXPORTS-ALL 9751 . 10710
+) (MAKE-WHEREIS-HASH 10712 . 11532)) (11569 15829 (HCFILES 11579 . 15514) (BADFILE 15516 . 15827)))))
 STOP