From bf2e34841b8076067f32d3a9578914e94f516e18 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Sat, 23 Sep 2023 22:56:54 -0700
Subject: [PATCH] PDFSTREAM:  wrapped FULLNAME around TRUEFILENAME

---
 library/PDFSTREAM      |  14 +++++++-------
 library/PDFSTREAM.LCOM | Bin 4189 -> 4201 bytes
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/library/PDFSTREAM b/library/PDFSTREAM
index 8d882dd8..9ec59d23 100644
--- a/library/PDFSTREAM
+++ b/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
diff --git a/library/PDFSTREAM.LCOM b/library/PDFSTREAM.LCOM
index ba009eae5b2a9602d4822a9e6fbe44635eea02e4..78e86fb0fceb4ca18f4e5b00d85ca718d47ab46c 100644
GIT binary patch
delta 642
zcmZ8f%WB&|6tx<Poj#VO4is`Q1lom)W~9+0n?#XDiLj&*nsJDso6@wKKoU%MUHA`5
zjOecP4+;f;O`-XK{zb2yR>7UsnK@_X-gEBU;x}&I4LIKy-ahvi7mgJzzP{eBwQZDL
zr`h7Cxo1D2AAvc6@3wC&>~tciT2?EytxY52vi)L>T4wDne_0n>kB1L>y{*IT9<62h
z@R>CiFwI0}c_FK~l;C~{*)*yF7yKV`1EjK8X~21eV`)}6uQCPBd=Q{*P1r$FC@r%C
zaL4WLut;?0EDTXMDv?^-i7Lx^T%};4i$qmPY>HePupoq<91#Zd1C-;~sFEPZq{`21
zDle;3FwcQ5Vtta+4cFbY!8p4onfD**@Qxf)ZyN!G40W80yFf(rHw7>3j8f$d4f)O{
zMbUoiKYz+SP?X2!glzEk^ONBmOprd!$l<AMjBLPoaQEmsQsz)3X|~2;gj%mrAaJD8
zDFO%YXS1srd;xhz&ULOTxZWL0)3`qW04myXuO7XmDRPXGx0jb!AJI++L(6aL!R`wt
X0*p$T7IM1!AYDTv2ygj)@T30+;CZ5b

delta 606
zcmZ8eyKdA#6wPEqvWk!>cu7<zRHWG889&CR0mmLER&0;unO%hv0yKyOt*F_WE~{xN
z_yHuOt@sHjkm&dT{(`$3*wxaVJLlZTIrAI8aCzoFv)$>N0~Sv|9^BBaY6fjy42<nm
zT2FsiqW8DKJsAo&V%VB1-1qBu+$G!F;*WgaJ!D{V_LIHtZQtD7*yuf(Ro8B_i3i&a
zRZ&)|NoxfW`A}V_JBUF3L%u++s<{S21UOQ5j?1Rd5S)Vml`Vu9BCE7f#bfX!UiR?B
zTfN6V+D>Q6m_erNdXhFdxQvnMCQEHq8cU@QGdv^=9tqSZsns=jC^2lx(*dnl%?R8N
zVXD*|m((HRbsL;VE7D8W$wV%><oSR8WrQ}(PL_Fu!QT)9f9aDJuWQ!E@9#bkJOSl-
zWRJ;!bl-OFO#<r43o<!UomCxOEUpGGQso|{k{1gc2WZU#Ne_oQe~Ku?%klVPjL3sJ
zCG)1#4McLq(ucf#@rnXpadZL%#dSY>c7A^G4rgQcp?|9<0`A`T_n2^>`gb>jWcIcH
GW#<p8A)IXh