SEE-PDF returns the file name, not T (#2237)

library/PDFSTREAM

@@ -1,12 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 5-Jun-2025 08:42:11" {WMEDLEY}<library>PDFSTREAM.;64
 14885  
+
(FILECREATED "30-Jul-2025 18:01:04" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>PDFSTREAM.;68
 15635  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS OPEN-PDF-STREAM)
+      :CHANGES-TO (FNS SEE-PDF)
 
-      :PREVIOUS-DATE "23-Feb-2025 12:18:57" {WMEDLEY}<library>PDFSTREAM.;62)
+      :PREVIOUS-DATE "16-Jun-2025 00:52:44" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>PDFSTREAM.;67)
 
 
 (PRETTYCOMPRINT PDFSTREAMCOMS)
@@ -28,11 +30,12 @@
                                           (CONVERSION (TEXT PDF.TEXT TEDIT PDF.TEDIT]
                      (IMAGESTREAMTYPES (PDF (OPENSTREAM OPEN-PDF-STREAM)
                                             (FONTCREATE POSTSCRIPT.FONTCREATE)
-                                            (FONTSAVAILABLE POSTSCRIPT.FONTSAVAILABLE)
+                                            (FONTSAVAILABLE PDF.FONTSAVAILABLE)
-                                            (CREATECHARSET \CREATECHARSET.PSC]
+                                            (CREATECHARSET \CREATECHARSET.PSC)
+                                            (FONTEXISTS? POSTSCRIPT.FONTEXISTS?]
               (ALISTS (DEFAULTFILETYPELIST PDF))
               (VARS (DEFAULTPRINTERTYPE 'PDF))
-              (FNS PDFFILEP PDF.HARDCOPYW PDF.TEXT PDF.TEDIT)
+              (FNS PDFFILEP PDF.HARDCOPYW PDF.TEXT PDF.TEDIT PDF.FONTSAVAILABLE)
               (P (FONTPROFILE.ADDDEVICE 'PDF 'POSTSCRIPT]
         
         (* ;; "")

@@ -71,8 +74,9 @@
 
 (ADDTOVAR IMAGESTREAMTYPES
 (PDF (OPENSTREAM OPEN-PDF-STREAM)
                                 (FONTCREATE POSTSCRIPT.FONTCREATE)
-                                (FONTSAVAILABLE POSTSCRIPT.FONTSAVAILABLE)
+                                (FONTSAVAILABLE PDF.FONTSAVAILABLE)
-                                (CREATECHARSET \CREATECHARSET.PSC)))
+                                (CREATECHARSET \CREATECHARSET.PSC)
+                                (FONTEXISTS? POSTSCRIPT.FONTEXISTS?)))
 
 (ADDTOVAR DEFAULTFILETYPELIST
 (PDF . BINARY))
 
@@ -123,6 +127,14 @@
     (LET ((TSTREAM (OPENTEXTSTREAM FILE)))
          (TEDIT.FORMAT.HARDCOPY FILE PDFFILE T NIL NIL NIL 'PDF)
          (CLOSEF TSTREAM])
+
+(PDF.FONTSAVAILABLE

+  [LAMBDA (FAMILY SIZE FACE ROTATION DEVICE)
                 (* ; "Edited 16-Jun-2025 00:46 by rmk")


+                                                      (* ; "Edited 12-Jan-88 13:04 by Matt Heffron")

+
+    (* ;; "")

+
+    (POSTSCRIPT.FONTSAVAILABLE FAMILY SIZE FACE ROTATION 'PDF])
 )
 
 (FONTPROFILE.ADDDEVICE 'PDF 'POSTSCRIPT)
@@ -272,14 +284,18 @@
 (DEFINEQ
 
 (SEE-PDF

-  [LAMBDA (PDFFILE)
                                          (* ; "Edited 25-Dec-2024 14:25 by rmk")


+  [LAMBDA (PDFFILE)
                                          (* ; "Edited 30-Jul-2025 18:00 by rmk")


+                                                             (* ; "Edited 25-Dec-2024 14:25 by rmk")


                                                              (* ; "Edited  1-Oct-2023 20:47 by rmk")


                                                              (* ; "Edited 26-Sep-2023 16:52 by rmk")

 
     (* ;; "Use the ShellOpener for this machine to open the PDF file outside of Medley")

 
-    (ShellOpen (OR (FINDFILE-WITH-EXTENSIONS PDFFILE NIL '(PDF))
+    (LET [(FOUND (FINDFILE-WITH-EXTENSIONS PDFFILE NIL '(PDF]
-                   (ERROR "FILE NOT FOUND" PDFFILE])
+         (if
 FOUND
+             then
 (ShellOpen FOUND)
+                  FOUND
+           else
 (ERROR "FILE NOT FOUND" PDFFILE])
 )
 
 (ADDTOVAR FB.SEE.METHODS
 (PDFFILEP SEE-PDF))
@@ -292,8 +308,8 @@
                                    thereis
 (ShellWhich (CAR TEMPLATE])
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3263 5877 (PDFFILEP 3273 . 4187) (PDF.HARDCOPYW 4189 . 4787) (PDF.TEXT 4789 . 5506) (
+  (FILEMAP (NIL (3492 6433 (PDFFILEP 3502 . 4416) (PDF.HARDCOPYW 4418 . 5016) (PDF.TEXT 5018 . 5735) (
-PDF.TEDIT 5508 . 5875)) (6317 13962 (OPEN-PDF-STREAM 6327 . 9048) (CLOSE-PDF-STREAM 9050 . 10337) (
+PDF.TEDIT 5737 . 6104) (PDF.FONTSAVAILABLE 6106 . 6431)) (6873 14518 (OPEN-PDF-STREAM 6883 . 9604) (
-PS-TO-PDF 10339 . 13960)) (13963 14527 (SEE-PDF 13973 . 14525)) (14578 14862 (PDFCONVERTER 14588 . 
+CLOSE-PDF-STREAM 9606 . 10893) (PS-TO-PDF 10895 . 14516)) (14519 15277 (SEE-PDF 14529 . 15275)) (15328
-14860)))))
+ 15612 (PDFCONVERTER 15338 . 15610)))))
 STOP