Skip to content
Permalink

Comparing changes

This is a direct comparison between two commits made in this repository or its related repositories. View the default comparison for this range or learn more about diff comparisons.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also . Learn more about diff comparisons here.
base repository: Interlisp/medley
Failed to load repositories. Confirm that selected base ref is valid, then try again.
Loading
base: 648ee370d834cb9732d54e81a309b10f033e8975
Choose a base ref
..
head repository: Interlisp/medley
Failed to load repositories. Confirm that selected head ref is valid, then try again.
Loading
compare: 83b36e26a03616619c310f09af8e255fe4c34392
Choose a head ref
Showing with 16 additions and 26 deletions.
  1. +16 −26 sources/ADIR
  2. BIN sources/ADIR.LCOM
42 changes: 16 additions & 26 deletions sources/ADIR
Original file line number Diff line number Diff line change
@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

(FILECREATED "19-Jan-2025 11:08:22" {DSK}<Users>briggs>Projects>medley>sources>ADIR.;47 70411
(FILECREATED "20-Jan-2025 13:37:28" {DSK}<Users>briggs>Projects>medley>sources>ADIR.;48 70144

:EDIT-BY "briggs"

:CHANGES-TO (FNS \LOGOUT0 LOGOUT)

:PREVIOUS-DATE "25-Dec-2024 11:31:30" {DSK}<Users>briggs>Projects>medley>sources>ADIR.;46)
:PREVIOUS-DATE "31-Dec-2024 11:45:01" {DSK}<Users>briggs>Projects>medley>sources>ADIR.;47)


(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.")
@@ -288,7 +287,7 @@
(RETURN T)))])

(\LOGOUT0
[LAMBDA (FAST STATUS) (* ; "Edited 19-Jan-2025 11:06 by briggs")
[LAMBDA (FAST STATUS) (* ; "Edited 20-Jan-2025 13:34 by briggs")
(* ; "Edited 21-Mar-2021 21:13 by larry")
(OR (AND (NOT FAST)
(\FLUSHVM))
@@ -301,14 +300,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)

@@ -318,7 +309,7 @@

(MOVD? 'NILL 'PSEUDOHOSTP)

(MOVD? 'TRUEDEVICE.STUB 'TRUEDEVICE)
(MOVD? '\GETDEVICEFROMNAME 'TRUEDEVICE)
(DECLARE%: DONTEVAL@LOAD DOCOPY


@@ -1077,7 +1068,7 @@
(DEFINEQ

(LOGOUT
[LAMBDA (FAST STATUS) (* ; "Edited 19-Jan-2025 11:06 by briggs")
[LAMBDA (FAST STATUS) (* ; "Edited 20-Jan-2025 13:36 by briggs")
(* ; "Edited 15-Mar-2021 11:53 by larry")
(\USEREVENT 'BEFORELOGOUT)
(OR (EQ FAST T)
@@ -1291,15 +1282,14 @@
(ADDTOVAR LAMA PACKFILENAME.STRING PACKFILENAME)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (3258 16085 (DELFILE 3268 . 3429) (FULLNAME 3431 . 3798) (INFILE 3800 . 4059) (INFILEP
4061 . 4196) (IOFILE 4198 . 4449) (OPENFILE 4451 . 4754) (OPENSTREAM 4756 . 9096) (OUTFILE 9098 . 9360
) (OUTFILEP 9362 . 9498) (RENAMEFILE 9500 . 9806) (SIMPLE.FINDFILE 9808 . 10218) (VMEMSIZE 10220 .
10387) (\COPYSYS 10389 . 14680) (\FLUSHVM 14682 . 15754) (\LOGOUT0 15756 . 16083)) (16214 16450 (
TRUEDEVICE.STUB 16224 . 16448)) (16818 41478 (UNPACKFILENAME.STRING 16828 . 38664) (\UPF.DIRECTORY
38666 . 41476)) (43006 45312 (UNPACKFILENAME 43016 . 43202) (LASTCHPOS 43204 . 43898) (FILENAMEFIELD
43900 . 44194) (FILENAMEFIELD.STRING 44196 . 44600) (PACKFILENAME 44602 . 44945) (PACKFILENAME.STRING
44947 . 45310)) (59782 60695 (FILEDIRCASEARRAY 59792 . 60693)) (60862 68170 (LOGOUT 60872 . 61917) (
MAKESYS 61919 . 63548) (SYSOUT 63550 . 65102) (SAVEVM 65104 . 65904) (HERALD 65906 . 66066) (
INTERPRET.REM.CM 66068 . 67793) (\USEREVENT 67795 . 68168)) (68352 70079 (USERNAME 68362 . 69318) (
SETUSERNAME 69320 . 70077)))))
(FILEMAP (NIL (3225 16052 (DELFILE 3235 . 3396) (FULLNAME 3398 . 3765) (INFILE 3767 . 4026) (INFILEP
4028 . 4163) (IOFILE 4165 . 4416) (OPENFILE 4418 . 4721) (OPENSTREAM 4723 . 9063) (OUTFILE 9065 . 9327
) (OUTFILEP 9329 . 9465) (RENAMEFILE 9467 . 9773) (SIMPLE.FINDFILE 9775 . 10185) (VMEMSIZE 10187 .
10354) (\COPYSYS 10356 . 14647) (\FLUSHVM 14649 . 15721) (\LOGOUT0 15723 . 16050)) (16551 41211 (
UNPACKFILENAME.STRING 16561 . 38397) (\UPF.DIRECTORY 38399 . 41209)) (42739 45045 (UNPACKFILENAME
42749 . 42935) (LASTCHPOS 42937 . 43631) (FILENAMEFIELD 43633 . 43927) (FILENAMEFIELD.STRING 43929 .
44333) (PACKFILENAME 44335 . 44678) (PACKFILENAME.STRING 44680 . 45043)) (59515 60428 (
FILEDIRCASEARRAY 59525 . 60426)) (60595 67903 (LOGOUT 60605 . 61650) (MAKESYS 61652 . 63281) (SYSOUT
63283 . 64835) (SAVEVM 64837 . 65637) (HERALD 65639 . 65799) (INTERPRET.REM.CM 65801 . 67526) (
\USEREVENT 67528 . 67901)) (68085 69812 (USERNAME 68095 . 69051) (SETUSERNAME 69053 . 69810)))))
STOP
Binary file modified sources/ADIR.LCOM
Binary file not shown.