(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) (FILECREATED "27-Apr-2026 21:18:26" ("compiled on " {MEDLEY}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}SAMEDIR.;6 6540 :EDIT-BY rmk :CHANGES-TO (FNS CHECKSAMEDIR) :PREVIOUS-DATE "31-Oct-2022 13:09:14" {MEDLEY}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*) oi hW c @ bdg'aHd[ ^ `A OOJ i [Mgg W"W&o@oKohgoN[ hogo ogo ohhdo dg=h_Jgg O_OOh__O_)O&_dg"dgh[gi  `W(ioW$O gOhghgH \dH lgHoLg ooh dg𒿰g(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) 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) NIL