1
0
mirror of synced 2026-05-08 08:42:37 +00:00
Files
Interlisp.medley/library/SAMEDIR.LCOM

41 lines
3.2 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(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*) ýoi hW c @ bÉg'aHd¢±[ ^ º`A Oµ‚±¥OJ
½i [Mgg ’±W"W&o@oKohgoN[
hogo ogo ohhdo
dgð²=h_Jgg ²O_¿OµOh__¿O_±ÿ)O&_¿°òdgð—¿°"dgð”¿h[°gði ¿ `W(ioW$O gð´O¢±þÓhghgH \d²çH
³ÞlgHoLg
ooh 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) 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