Better type check on fontspec

sources/MEDLEYFONTFORMAT

@@ -1,10 +1,10 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED " 2-Mar-2026 20:50:00" {WMEDLEY}<sources>MEDLEYFONTFORMAT.;251
 61187  
+
(FILECREATED " 2-Mar-2026 22:52:59" {WMEDLEY}<sources>MEDLEYFONTFORMAT.;252
 61298  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS MEDLEYFONT.READ.FONT MEDLEYFONT.READ.VERIFIEDFONT MEDLEYFONT.FILENAME)
+      :CHANGES-TO (FNS MEDLEYFONT.FILENAME MEDLEYFONT.READ.FONT MEDLEYFONT.READ.VERIFIEDFONT)
 
       :PREVIOUS-DATE "14-Feb-2026 00:39:34" {WMEDLEY}<sources>MEDLEYFONTFORMAT.;250)
 
@@ -850,7 +850,7 @@
 (DEFINEQ
 
 (MEDLEYFONT.FILENAME

-  [LAMBDA (FILE FONT CHARSET EXTENSION DIRECTORY)
            (* ; "Edited  2-Mar-2026 20:41 by rmk")


+  [LAMBDA (FILE FONT CHARSET EXTENSION DIRECTORY)
            (* ; "Edited  2-Mar-2026 22:45 by rmk")


                                                              (* ; "Edited  1-Mar-2026 01:07 by rmk")


                                                              (* ; "Edited 23-Jan-2026 15:10 by rmk")


                                                              (* ; "Edited 20-Jan-2026 17:39 by rmk")


@@ -860,7 +860,9 @@
                                                              (* ; "Edited 25-May-2025 21:25 by rmk")


                                                              (* ; "Edited 19-May-2025 17:42 by rmk")


                                                              (* ; "Edited 16-May-2025 14:09 by rmk")

-    (LET [(FONTSPEC (AND FONT (FONTPROP FONT 'SPEC]
+    (LET [(FONTSPEC (if
 (type?
 FONTSPEC FONT)
+                        then
 (\FONT.CHECKARGS FONT)
+                      else
 (FONTPROP FONT 'SPEC]
          (CL:UNLESS EXTENSION                                (* ; 
 
                                                        "EXTENSION may be needed for DIRECTORY below")

              (SETQ EXTENSION (OR (FILENAMEFIELD FILE 'EXTENSION)
@@ -935,5 +937,5 @@ MEDLEYFONT.CHARSET? 11386 . 12855) (MEDLEYFONT.GETFILEPROP 12857 . 14957) (MEDLE
 MEDLEYFONT.READ.ITEM 27269 . 33418) (MEDLEYFONT.PEEK.ITEM 33420 . 34282) (MEDLEYFONT.READ.FONTPROPS 
 34284 . 34749) (MEDLEYFONT.READ.VERIFIEDFONT 34751 . 39871)) (39899 57736 (MEDLEYFONT.WRITE.CHARSET 
 39909 . 44471) (MEDLEYFONT.WRITE.ITEM 44473 . 53526) (MEDLEYFONT.WRITE.FONTPROPS 53528 . 57081) (
-MEDLEYFONT.WRITE.HEADER 57083 . 57734)) (57737 60302 (MEDLEYFONT.FILENAME 57747 . 60300)))))
+MEDLEYFONT.WRITE.HEADER 57083 . 57734)) (57737 60413 (MEDLEYFONT.FILENAME 57747 . 60411)))))
 STOP