Merge branch 'master' into akw-fix-1883-clos-browser

Author: Anzus

library/PDFSTREAM

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "23-Feb-2025 12:18:57" {WMEDLEY}<library>PDFSTREAM.;62
 14729  
+
(FILECREATED " 5-Jun-2025 08:42:11" {WMEDLEY}<library>PDFSTREAM.;64
 14885  
 
       :EDIT-BY rmk
 
       :CHANGES-TO (FNS OPEN-PDF-STREAM)
 
-      :PREVIOUS-DATE "25-Dec-2024 14:26:23" {WMEDLEY}<library>PDFSTREAM.;60)
+      :PREVIOUS-DATE "23-Feb-2025 12:18:57" {WMEDLEY}<library>PDFSTREAM.;62)
 
 
 (PRETTYCOMPRINT PDFSTREAMCOMS)
@@ -153,7 +153,8 @@
 (DEFINEQ
 
 (OPEN-PDF-STREAM

-  [LAMBDA (FILE OPTIONS)
                                     (* ; "Edited 23-Feb-2025 12:18 by rmk")


+  [LAMBDA (FILE OPTIONS)
                                     (* ; "Edited  5-Jun-2025 08:41 by rmk")


+                                                             (* ; "Edited 23-Feb-2025 12:18 by rmk")


                                                              (* ; "Edited 23-Sep-2023 15:38 by rmk")


                                                              (* ; "Edited 22-Sep-2023 11:04 by rmk")


                                                              (* ; "Edited 24-Jun-2023 14:49 by rmk")

@@ -165,8 +166,6 @@
     (* ;; 
 
    "Simplest thing for now is to just add an extra field at the end of the \POSTSCRIPTDATA record.")

 
-    (* ;; "")

-
     (if
 [AND NIL (EQ 'LPT (FILENAMEFIELD FILE 'HOST]
         then
 
              (* ;; "If FILE is on the LPT device, we could just ssume that it can be printed directly, no point in converting.  But then we would alo have to lie and give it a PDF extension so it thinks that we are heading to a PDF printer.")

@@ -178,8 +177,9 @@
              (* ;; "Device NULL used by TMAX, maybe others, to get page number for table of contents, index.  Nothing to convert")

 
              (OPENPOSTSCRIPTSTREAM FILE OPTIONS)
-      elseif
 (SETQ FILE (OR (AND (NEQ FILE T)
-                                 (OUTFILEP FILE))
+      elseif
 (SETQ FILE (OR [AND (NEQ FILE T)
+                                 (OR (OUTFILEP FILE)
+                                     (OPENSTREAM FILE 'OUTPUT]
                             (ERROR "PDF target file not found" FILE)))
         then
 (CL:UNLESS (ASSOC (PDFCONVERTER
)
                                PDF-CONVERTER-TEMPLATES)
@@ -293,7 +293,7 @@
 )
 (DECLARE%: DONTCOPY
   (FILEMAP (NIL (3263 5877 (PDFFILEP 3273 . 4187) (PDF.HARDCOPYW 4189 . 4787) (PDF.TEXT 4789 . 5506) (
-PDF.TEDIT 5508 . 5875)) (6317 13806 (OPEN-PDF-STREAM 6327 . 8892) (CLOSE-PDF-STREAM 8894 . 10181) (
-PS-TO-PDF 10183 . 13804)) (13807 14371 (SEE-PDF 13817 . 14369)) (14422 14706 (PDFCONVERTER 14432 . 
-14704)))))
+PDF.TEDIT 5508 . 5875)) (6317 13962 (OPEN-PDF-STREAM 6327 . 9048) (CLOSE-PDF-STREAM 9050 . 10337) (
+PS-TO-PDF 10339 . 13960)) (13963 14527 (SEE-PDF 13973 . 14525)) (14578 14862 (PDFCONVERTER 14588 . 
+14860)))))
 STOP