TRUEDEVICE behaves more like \GETDEVICEFROMNAME (#1947)

tries to create a device if it doesn't yet exist

sources/ADIR

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "25-Dec-2024 11:31:30" {MEDLEY}<sources>ADIR.;15
 70102  
+
(FILECREATED "31-Dec-2024 11:45:01" {WMEDLEY}<sources>ADIR.;59
 69831  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS TRUEDEVICE.STUB)
+      :CHANGES-TO (VARS ADIRCOMS)
 
-      :PREVIOUS-DATE "25-Dec-2024 07:35:38" {MEDLEY}<sources>ADIR.;13)
+      :PREVIOUS-DATE "25-Dec-2024 11:31:30" {WMEDLEY}<sources>ADIR.;58)
 
 
 (PRETTYCOMPRINT ADIRCOMS)
@@ -16,12 +16,11 @@
               (FNS DELFILE FULLNAME INFILE INFILEP IOFILE OPENFILE OPENSTREAM OUTFILE OUTFILEP 
                    RENAMEFILE SIMPLE.FINDFILE VMEMSIZE \COPYSYS \FLUSHVM \LOGOUT0)
               (CONSTANTS (MULTIPLE.STREAMS.PER.FILE.ALLOWED T))
-              (FNS TRUEDEVICE.STUB)
               (P (MOVD? 'SIMPLE.FINDFILE 'FINDFILE NIL T)
                  (MOVD? 'EVQ 'TRUEFILENAME)
                  (MOVD? 'EVQ 'PSEUDOFILENAME)
                  (MOVD? 'NILL 'PSEUDOHOSTP)
-                 (MOVD? 'TRUEDEVICE.STUB 'TRUEDEVICE))
+                 (MOVD? '\GETDEVICEFROMNAME 'TRUEDEVICE))
               (DECLARE%: DONTEVAL@LOAD DOCOPY (P 
 
                                        (* ;; "for the benefit of the call to PATHNAMEP in OPENSTREAM.  PATHNAMEP (and pathnames) get defined much later in the loadup.")

@@ -300,14 +299,6 @@
 
 (CONSTANTS (MULTIPLE.STREAMS.PER.FILE.ALLOWED T))
 )
-(DEFINEQ
-
-(TRUEDEVICE.STUB

-  [LAMBDA (X)
                                                (* ; "Edited 25-Dec-2024 11:31 by rmk")

-    (if
 (type?
 FDEV X)
-        then
 X
-      else
 (\GETDEVICEFROMNAME X NIL T])
-)
 
 (MOVD? 'SIMPLE.FINDFILE 'FINDFILE NIL T)
 
@@ -317,7 +308,7 @@
 
 (MOVD? 'NILL 'PSEUDOHOSTP)
 
-(MOVD? 'TRUEDEVICE.STUB 'TRUEDEVICE)
+(MOVD? '\GETDEVICEFROMNAME 'TRUEDEVICE)
 (DECLARE%: DONTEVAL@LOAD DOCOPY 
 
 
@@ -1289,15 +1280,14 @@
 (ADDTOVAR LAMA
 PACKFILENAME.STRING PACKFILENAME)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3201 15904 (DELFILE 3211 . 3372) (FULLNAME 3374 . 3741) (INFILE 3743 . 4002) (INFILEP 
-4004 . 4139) (IOFILE 4141 . 4392) (OPENFILE 4394 . 4697) (OPENSTREAM 4699 . 9039) (OUTFILE 9041 . 9303
-) (OUTFILEP 9305 . 9441) (RENAMEFILE 9443 . 9749) (SIMPLE.FINDFILE 9751 . 10161) (VMEMSIZE 10163 . 
-10330) (\COPYSYS 10332 . 14623) (\FLUSHVM 14625 . 15697) (\LOGOUT0 15699 . 15902)) (16033 16269 (
-TRUEDEVICE.STUB 16043 . 16267)) (16637 41297 (UNPACKFILENAME.STRING 16647 . 38483) (\UPF.DIRECTORY 
-38485 . 41295)) (42825 45131 (UNPACKFILENAME 42835 . 43021) (LASTCHPOS 43023 . 43717) (FILENAMEFIELD 
-43719 . 44013) (FILENAMEFIELD.STRING 44015 . 44419) (PACKFILENAME 44421 . 44764) (PACKFILENAME.STRING 
-44766 . 45129)) (59601 60514 (FILEDIRCASEARRAY 59611 . 60512)) (60681 67861 (LOGOUT 60691 . 61608) (
-MAKESYS 61610 . 63239) (SYSOUT 63241 . 64793) (SAVEVM 64795 . 65595) (HERALD 65597 . 65757) (
-INTERPRET.REM.CM 65759 . 67484) (\USEREVENT 67486 . 67859)) (68043 69770 (USERNAME 68053 . 69009) (
-SETUSERNAME 69011 . 69768)))))
+  (FILEMAP (NIL (3164 15867 (DELFILE 3174 . 3335) (FULLNAME 3337 . 3704) (INFILE 3706 . 3965) (INFILEP 
+3967 . 4102) (IOFILE 4104 . 4355) (OPENFILE 4357 . 4660) (OPENSTREAM 4662 . 9002) (OUTFILE 9004 . 9266
+) (OUTFILEP 9268 . 9404) (RENAMEFILE 9406 . 9712) (SIMPLE.FINDFILE 9714 . 10124) (VMEMSIZE 10126 . 
+10293) (\COPYSYS 10295 . 14586) (\FLUSHVM 14588 . 15660) (\LOGOUT0 15662 . 15865)) (16366 41026 (
+UNPACKFILENAME.STRING 16376 . 38212) (\UPF.DIRECTORY 38214 . 41024)) (42554 44860 (UNPACKFILENAME 
+42564 . 42750) (LASTCHPOS 42752 . 43446) (FILENAMEFIELD 43448 . 43742) (FILENAMEFIELD.STRING 43744 . 
+44148) (PACKFILENAME 44150 . 44493) (PACKFILENAME.STRING 44495 . 44858)) (59330 60243 (
+FILEDIRCASEARRAY 59340 . 60241)) (60410 67590 (LOGOUT 60420 . 61337) (MAKESYS 61339 . 62968) (SYSOUT 
+62970 . 64522) (SAVEVM 64524 . 65324) (HERALD 65326 . 65486) (INTERPRET.REM.CM 65488 . 67213) (
+\USEREVENT 67215 . 67588)) (67772 69499 (USERNAME 67782 . 68738) (SETUSERNAME 68740 . 69497)))))
 STOP