More bugs discovered and fixed.

(This needs regression tests. "Harmless" edits aren't!)
Documentation review changes.

lispusers/READ-BDF

@@ -4,11 +4,12 @@
 "FONTDESCRIPTOR" "FONTP" "FONTPROP" "INPUT" "ITALIC" "LIGHT" "LRSH" "MEDIUM" "REGULAR" "TCONC" 
 "UTOMCODE?" "MEDLEYFONT.FILENAME" "MEDLEYFONT.WRITE.FONT")) READTABLE "XCL" BASE 10)
 
-
(IL:FILECREATED " 1-Dec-2025 23:07:52" IL:|{DSK}<home>matt>Interlisp>medley>lispusers>READ-BDF.;3|
 50528  
+
(IL:FILECREATED " 2-Dec-2025 16:10:25" IL:|{DSK}<home>matt>Interlisp>medley>lispusers>READ-BDF.;6|
 50944  
 
       :EDIT-BY "mth"
 
-      :CHANGES-TO (IL:FUNCTIONS BUILD-COMPOSITE READ-BDF)
+      :CHANGES-TO (IL:FUNCTIONS BDF-TO-FONTDESCRIPTOR WRITE-BDF-TO-MEDLEYDISPLAYFONT-FILE 
+                         BUILD-COMPOSITE READ-BDF)
 
       :PREVIOUS-DATE "30-Nov-2025 17:43:25" IL:|{DSK}<home>matt>Interlisp>medley>lispusers>READ-BDF.;1|
 )
@@ -198,6 +199,7 @@
                  CSINFO))))
 
 (DEFUN BDF-TO-FONTDESCRIPTOR
 (BDFONT FAMILY SIZE FACE ROTATION DEVICE)

+                                                      (IL:* IL:\; "Edited  2-Dec-2025 16:10 by mth")


                                                       (IL:* IL:\; "Edited 30-Nov-2025 15:59 by mth")


                                                       (IL:* IL:\; "Edited 28-Nov-2025 18:03 by mth")


                                                       (IL:* IL:\; "Edited 20-Nov-2025 12:46 by mth")


@@ -205,10 +207,9 @@
                                                       (IL:* IL:\; "Edited 21-Apr-2025 16:03 by mth")


                                                       (IL:* IL:\; "Edited 30-Jan-2025 21:27 by mth")

 
-   (IL:* IL:|;;| "Check valid required arguments")

+   (IL:* IL:|;;| "Check valid required argument")

 
-   (WHEN (AND (BDF-FONT-P BDFONT)
-              FAMILY)
+   (WHEN (BDF-FONT-P BDFONT)
        (WHEN (FONTP FAMILY)
            (RETURN-FROM BDF-TO-FONTDESCRIPTOR (BDF-TO-FONTDESCRIPTOR
 BDFONT (FONTPROP FAMILY
                                                                                    'IL:FAMILY)
@@ -216,7 +217,8 @@
                                                      (OR FACE (FONTPROP FAMILY 'IL:FACE))
                                                      (OR ROTATION (FONTPROP FAMILY 'IL:ROTATION))
                                                      (OR DEVICE (FONTPROP FAMILY 'IL:DEVICE)))))
-       (WHEN (LISTP FAMILY)
+       (WHEN (CONSP FAMILY)                                  (IL:* IL:\; 
+
                                                             "Because (LISTP NIL) == T !!!")

 
            (IL:* IL:|;;| "Assume this is a FONTSPEC.")

 
@@ -745,11 +747,12 @@
 
 (DEFUN WRITE-BDF-TO-MEDLEYDISPLAYFONT-FILE
 (BDFONT DEST-DIR &KEY FAMILY SIZE FACE ROTATION DEVICE 
                                                   &AUX FULLFILENAME)

+                                                      (IL:* IL:\; "Edited  2-Dec-2025 14:47 by mth")


                                                       (IL:* IL:\; "Edited 30-Nov-2025 16:03 by mth")


                                                       (IL:* IL:\; "Edited 28-Nov-2025 17:56 by mth")


                                                       (IL:* IL:\; "Edited 26-Nov-2025 21:07 by mth")


                                                       (IL:* IL:\; "Edited 16-Nov-2025 17:32 by mth")

-   (UNLESS (TYPEP BDFONT 'BDF-FONT)
+   (UNLESS (BDF-FONT-P BDFONT)
           (ERROR "Not a BDF-FONT: ~S ~%" BDFONT))
    (DESTRUCTURING-BIND (FONTDESC CSETS)
           (BDF-TO-FONTDESCRIPTOR
 BDFONT FAMILY SIZE FACE ROTATION DEVICE)
@@ -882,11 +885,11 @@
 
 (IL:PUTPROPS IL:READ-BDF
 IL:DATABASE
 IL:NO)
 (IL:DECLARE\: IL:DONTCOPY
-  (IL:FILEMAP (NIL (3029 9967 (BDF-TO-CHARSETINFO 3029 . 9967)) (9969 16191 (BDF-TO-FONTDESCRIPTOR 9969
- . 16191)) (16193 20126 (BUILD-COMPOSITE 16193 . 20126)) (20128 20877 (CHAR-PRESENT-BIT 20128 . 20877)
-) (20879 21163 (COUNT-MCHARS 20879 . 21163)) (21165 24200 (GLYPHS-BY-CHARSET 21165 . 24200)) (24202 
-25627 (PACKFILENAME.STRING 24202 . 25627)) (25629 35104 (READ-BDF 25629 . 35104)) (35106 35429 (
-READ-DELIMITED-LIST-FROM-STRING 35106 . 35429)) (35431 42429 (READ-GLYPH 35431 . 42429)) (42431 43712 
-(WRITE-BDF-TO-MEDLEYDISPLAYFONT-FILE 42431 . 43712)) (43714 46131 (XLFD-SPLIT-FONT-NAME 43714 . 46131)
-) (46133 49145 (XLFD-TO-FACE 46133 . 49145)))))
+  (IL:FILEMAP (NIL (3113 10051 (BDF-TO-CHARSETINFO 3113 . 10051)) (10053 16503 (BDF-TO-FONTDESCRIPTOR 
+10053 . 16503)) (16505 20438 (BUILD-COMPOSITE 16505 . 20438)) (20440 21189 (CHAR-PRESENT-BIT 20440 . 
+21189)) (21191 21475 (COUNT-MCHARS 21191 . 21475)) (21477 24512 (GLYPHS-BY-CHARSET 21477 . 24512)) (
+24514 25939 (PACKFILENAME.STRING 24514 . 25939)) (25941 35416 (READ-BDF 25941 . 35416)) (35418 35741 (
+READ-DELIMITED-LIST-FROM-STRING 35418 . 35741)) (35743 42741 (READ-GLYPH 35743 . 42741)) (42743 44128 
+(WRITE-BDF-TO-MEDLEYDISPLAYFONT-FILE 42743 . 44128)) (44130 46547 (XLFD-SPLIT-FONT-NAME 44130 . 46547)
+) (46549 49561 (XLFD-TO-FACE 46549 . 49561)))))
 IL:STOP