41 lines
3.2 KiB
Plaintext
41 lines
3.2 KiB
Plaintext
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||
|
||
(FILECREATED "27-Apr-2026 21:18:26" ("compiled on " {MEDLEY}<library>SAMEDIR.;6)
|
||
"26-Apr-2026 21:23:17" brecompiled exprs%: CHECKSAMEDIR in "FULL 26-Apr-2026 ..." dated
|
||
"26-Apr-2026 21:23:26")
|
||
(FILECREATED "27-Apr-2026 21:18:26" {WMEDLEY}<library>SAMEDIR.;6 6540 :EDIT-BY rmk :CHANGES-TO (FNS
|
||
CHECKSAMEDIR) :PREVIOUS-DATE "31-Oct-2022 13:09:14" {MEDLEY}<library>SAMEDIR.;4)
|
||
CHECKSAMEDIRA0001 :D8
|
||
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 HOST/DIR F 3 SI::NLSETQ-VALUE) i@Rµ id
|
||
hcg (19 CNDIR 14 READ)
|
||
(28 :NORMAL)
|
||
()
|
||
CHECKSAMEDIR :D8
|
||
(P 15 *CONDITION-HANDLER-BINDINGS* P 14 SI::*NLSETQFLAG* P 13 *PROCEED-CASES* P 12 SI::NLSETQ-VALUE P 11 M P 6 OLDDIR P 5 OKHOST/DIRS P 4 NEWV P 3 HOST/DIR P 2 PREVPDIRS P 1 *UPPER-CASE-FILE-NAMES* P 0 OLDFILE I 0 FILE F 16 SI::*RESETFORMS* F 17 SAMEDIRWAIT F 18 *CONDITION-HANDLER-BINDINGS* F 19 SAMEDIRDEFAULT F 20 *PROCEED-CASES*) ý o i hW c @ b dÁÉ g 'aHd¢±[ ^ º` A Oµ‚± ¥OJ
|
||
½i [Mg g ’±W"W&o @o Ko hg o N[
|
||
ho g o o g o o hhdo
|
||
dg ð²=h_Jg g ²O_¿OµOh__¿O_±ÿ)O&_¿°òdg ð—¿ °"dg ð”¿h[°g ð–i „ ¿ ` W(io W$O g ð´O¢±þÓhg hg H \d²çH
|
||
³Þlg Ho Lg
|
||
o o h dg ð’¿°¦g ð— ¿°— ¿°<C2BF> (504 SHOULDNT 496 ERROR! 473 ASKUSER 452 FILENAMEFIELD.STRING 426 CL::SIMPLE-STRING-EQUAL 416 INFILEP 411 PACKFILENAME.STRING 376 CHECKSAMEDIRA0001 345 SHOULDNT 339 TERPRI 311 ERROR! 260 CL:MEMBER 229 ASKUSER 204 CONCAT 182 CONCAT 159 CONCAT 111 CL:MEMBER 94 DIRECTORYNAME 87 \APPEND2 60 PSEUDOFILENAMES 54 HOST&DIRECTORYFIELD 24 ROOTFILENAME 10 DIRECTORYNAME)
|
||
(489 N 479 Y 447 VERSION 435 Y 405 BODY 399 VERSION 382 :NORMAL 354 SI::NLSETQ-PROCEED-CASE 331 O 319 C 303 N 255 STRING-EQUAL 250 :TEST 235 Y 194 N 172 Y 147 O 106 STRING-EQUAL 101 :TEST 66 MIGRATIONS 36 FILEDATES)
|
||
( 462 "Do you want to make the file anyway" 457 "has since appeared)." 441 "is not the most recent version (version"
|
||
363 (CL:ERROR . SI::NLSETQHANDLER) 223 (NOECHOFLG T) 209 ((CHARACTER (CHARCODE EOL))) 199 "No, abort MAKEFILE"
|
||
187 ((CHARACTER (CHARCODE EOL))) 177 "Yes, write it here" 167 (C "Make file on other directory: ") 152
|
||
"Oops! Make file on " 136 "-- write it out anyway" 130 "in your connected directory" 124 "You haven't loaded or written"
|
||
4 (PROGN (CNDIR OLDVALUE)))
|
||
HOST&DIRECTORYFIELD :D8
|
||
(I 0 FILENAME) B g @g
|
||
g @g
|
||
g @g
|
||
|
||
(63 PACKFILENAME.STRING 57 FILENAMEFIELD.STRING 41 U-CASE 36 FILENAMEFIELD.STRING 20 U-CASE 15 FILENAMEFIELD.STRING)
|
||
(52 DIRECTORY 46 DIRECTORY 31 HOST 25 HOST 10 DEVICE 4 DEVICE)
|
||
()
|
||
(PRETTYCOMPRINT SAMEDIRCOMS)
|
||
(RPAQQ SAMEDIRCOMS ((FNS CHECKSAMEDIR HOST&DIRECTORYFIELD) (INITVARS (SAMEDIRWAIT 10) (SAMEDIRDEFAULT
|
||
(QUOTE O))) (ADDVARS (MAKEFILEFORMS (OR (NLSETQ (CHECKSAMEDIR FILE)) (RETFROM (QUOTE MAKEFILE)))) (
|
||
MIGRATIONS)) (GLOBALVARS MIGRATIONS)))
|
||
(RPAQ? SAMEDIRWAIT 10)
|
||
(RPAQ? SAMEDIRDEFAULT (QUOTE O))
|
||
(ADDTOVAR MAKEFILEFORMS (OR (NLSETQ (CHECKSAMEDIR FILE)) (RETFROM (QUOTE MAKEFILE))))
|
||
(ADDTOVAR MIGRATIONS)
|
||
NIL
|