(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "31-Oct-2022 13:09:20" ("compiled on " {WMEDLEY}SAMEDIR.;4) "30-Oct-2022 00:08:19" brecompiled exprs%: CHECKSAMEDIR HOST&DIRECTORYFIELD in "FULL 30-Oct-2022 ..." dated "30-Oct-2022 00:08:23") (FILECREATED "31-Oct-2022 13:09:14" {WMEDLEY}SAMEDIR.;4 6221 :CHANGES-TO (FNS CHECKSAMEDIR HOST&DIRECTORYFIELD) :PREVIOUS-DATE "25-Apr-2022 09:23:16" {WMEDLEY}SAMEDIR.;3) CHECKSAMEDIRA0002 :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 14 *CONDITION-HANDLER-BINDINGS* P 13 SI::*NLSETQFLAG* P 12 *PROCEED-CASES* P 11 SI::NLSETQ-VALUE P 10 DIR P 9 HOST P 8 OLDFILE P 6 OKHOST/DIRS P 5 NEWV P 4 DIR P 3 HOST P 2 HOST/DIR P 1 *UPPER-CASE-FILE-NAMES* P 0 DATES I 0 FILE F 15 SI::*RESETFORMS* F 16 SAMEDIRWAIT F 17 *CONDITION-HANDLER-BINDINGS* F 18 SAMEDIRDEFAULT F 19 *PROCEED-CASES*) Zoi hWc@ bÁÉg'aH¡hi Zd`gg¿¿µ4d `gg¿¿µJ `gg¿¿d£d‘h¾H1 Oµ‚±Ÿi¢±AW W$o@oJohgoH Z hogo ogo ohhdo dgð’±ÿ dgð²o¿±‡_ Ngg ³?O Ngg ³ O Ngg “h±ÿ O_±þüdgð”¿hZ°gð–i „¿ `W&ioW"O ±þPghgH ]d¢±þ6H ’±þ)lgHoMg ooh dgð“¿±ýîg𘿱ýÞ¿±ýÕ(596 SHOULDNT 587 ERROR! 563 ASKUSER 542 FILENAMEFIELD.STRING 512 CL::SIMPLE-STRING-EQUAL 498 INFILEP 493 PACKFILENAME.STRING 469 CHECKSAMEDIRA0002 438 SHOULDNT 432 TERPRI 393 CL:MEMBER 377 PSEUDOFILENAME 372 HOST&DIRECTORYFIELD 362 CL:MEMBER 346 TRUEFILENAME 341 HOST&DIRECTORYFIELD 331 CL:MEMBER 315 HOST&DIRECTORYFIELD 303 ERROR! 277 ASKUSER 252 CONCAT 230 CONCAT 207 CONCAT 201 HOST&DIRECTORYFIELD 109 PSEUDOFILENAME 83 TRUEFILENAME 55 HOST&DIRECTORYFIELD 50 DIRECTORYNAME 24 ROOTFILENAME 10 DIRECTORYNAME) (580 N 569 Y 537 VERSION 523 Y 485 BODY 479 VERSION 447 SI::NLSETQ-PROCEED-CASE 424 O 412 C 388 STRING-EQUAL 383 :TEST 357 STRING-EQUAL 352 :TEST 326 STRING-EQUAL 321 :TEST 294 N 283 Y 242 N 220 Y 188 O 124 STRING-EQUAL 119 :TEST 114 MIGRATIONS 98 STRING-EQUAL 93 :TEST 88 MIGRATIONS 72 STRING-EQUAL 67 :TEST 62 MIGRATIONS 35 FILEDATES) ( 552 "Do you want to make the file anyway" 547 "has since appeared)." 531 "is not the most recent version (version" 456 (CL:ERROR . SI::NLSETQHANDLER) 271 (NOECHOFLG T) 257 ((CHARACTER (CHARCODE EOL))) 247 "No, abort MAKEFILE" 235 ((CHARACTER (CHARCODE EOL))) 225 "Yes, write it here" 215 (C "Make file on other directory: ") 193 "Oops! Make file on " 177 "-- write it out anyway" 171 "in your connected directory" 165 "You haven't loaded or written" 4 (PROGN (CNDIR OLDVALUE))) HOST&DIRECTORYFIELD :D8 (I 0 FILENAME) Bg@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) (PUTPROPS SAMEDIR COPYRIGHT ("Venue & Xerox Corporation" 1982 1984 1985 1986 1987 1990 2018 2020)) NIL