PDFSTREAM: wrapped FULLNAME around TRUEFILENAME

library/PDFSTREAM

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "23-Sep-2023 15:38:55" {WMEDLEY}<library>PDFSTREAM.;48
 10752  
+
(FILECREATED "23-Sep-2023 22:54:26" {WMEDLEY}<library>PDFSTREAM.;49
 10763  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS OPEN-PDF-STREAM PS-TO-PDF)
+      :CHANGES-TO (FNS PS-TO-PDF OPEN-PDF-STREAM)
 
-      :PREVIOUS-DATE "23-Sep-2023 15:31:33" {WMEDLEY}<library>PDFSTREAM.;47)
+      :PREVIOUS-DATE "23-Sep-2023 15:38:55" {WMEDLEY}<library>PDFSTREAM.;48)
 
 
 (PRETTYCOMPRINT PDFSTREAMCOMS)
@@ -154,7 +154,7 @@
              PSSTREAM)])
 
 (PS-TO-PDF

-  [LAMBDA (PSFILE PDFFILE DONTDELETE)
                        (* ; "Edited 23-Sep-2023 15:30 by rmk")


+  [LAMBDA (PSFILE PDFFILE DONTDELETE)
                        (* ; "Edited 23-Sep-2023 22:54 by rmk")


                                                              (* ; "Edited 23-Jul-2023 22:30 by rmk")


                                                              (* ; "Edited 24-Jun-2023 15:01 by rmk")


                                                              (* ; "Edited 16-Jul-2022 13:06 by rmk")


@@ -166,7 +166,7 @@
 
     (* ;; "DONTDELETE is just for debugging, keeps the /tmp/ files")

 
-    (SETQ PSFILE (TRUEFILENAME PSFILE))
+    (SETQ PSFILE (FULLNAME (TRUEFILENAME PSFILE)))
     (SETQ PDFFILE (if
 PDFFILE
                       then
 (TRUEFILENAME PDFFILE)
                     else
 (PACKFILENAME 'EXTENSION 'pdf 'BODY PSFILE)))
@@ -211,6 +211,6 @@
          PDFFILE])
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3630 10729 (OPEN-PDF-STREAM 3640 . 5818) (CLOSE-PDF-STREAM 5820 . 7107) (PS-TO-PDF 7109
- . 10727)))))
+  (FILEMAP (NIL (3630 10740 (OPEN-PDF-STREAM 3640 . 5818) (CLOSE-PDF-STREAM 5820 . 7107) (PS-TO-PDF 7109
+ . 10738)))))
 STOP