1
- (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)(FILECREATED "18-Mar-88 16:09:05" {ERIS}<LISPCORE>INTERNAL>LIBRARY>ABC.;4 2101 changes to%: (VARS ABCCOMS) previous date%: "29-Jul-87 12:04:16" {ERIS}<LISPCORE>INTERNAL>LIBRARY>ABC.;3)(* "Copyright (c) 1986, 1987, 1988 by Xerox Corporation. All rights reserved.")(PRETTYCOMPRINT ABCCOMS)(RPAQQ ABCCOMS ((VARS (MSRECORDTRANFLG T) (DWIMIFYCOMPFLG) (MSMACROPROPS COMPILERMACROPROPS) (CLEANUPOPTIONS '(RC F)) (CROSSCOMPILING T) (ASKEDITHIST T) (RECOMPILEDEFAULT 'CHANGES) (CROSSCOMPILING 'ASK)) (FILES (SOURCE) FILESETS) (P (MOVD? 'APPLY* 'SPREADAPPLY*) [RESETVARS ((CROSSCOMPILING T)) (FILESLOAD EXPORTS.ALL) (AND (EQ (ASKUSER DWIMWAIT 'N "Check imports? " NIL T) 'Y) (ERSETQ (CHECKIMPORTS EXPORTFILES T] (PRIN1 "**** SET IL:DFNFLG TO IL:PROP IF YOU EDIT SYSTEM SOURCES THAT CAN'T BE RUN INTERPRETED" T))))(RPAQQ MSRECORDTRANFLG T)(RPAQQ DWIMIFYCOMPFLG NIL)(RPAQ MSMACROPROPS COMPILERMACROPROPS)(RPAQQ CLEANUPOPTIONS (RC F))(RPAQQ CROSSCOMPILING T)(RPAQQ ASKEDITHIST T)(RPAQQ RECOMPILEDEFAULT CHANGES)(RPAQQ CROSSCOMPILING ASK)(FILESLOAD (SOURCE) FILESETS)(MOVD? 'APPLY* 'SPREADAPPLY*)[RESETVARS ((CROSSCOMPILING T)) (FILESLOAD EXPORTS.ALL) (AND (EQ (ASKUSER DWIMWAIT 'N "Check imports? " NIL T) 'Y) (ERSETQ (CHECKIMPORTS EXPORTFILES T](PRIN1 "**** SET IL:DFNFLG TO IL:PROP IF YOU EDIT SYSTEM SOURCES THAT CAN'T BE RUN INTERPRETED" T)(PUTPROPS ABC COPYRIGHT ("Xerox Corporation" 1986 1987 1988))(DECLARE%: DONTCOPY (FILEMAP (NIL)))STOP
1
+ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
2
+ (FILECREATED "18-Mar-88 16:09:05" {ERIS}<LISPCORE>INTERNAL>LIBRARY>ABC.;4 2101
3
+
4
+ changes to%: (VARS ABCCOMS)
5
+
6
+ previous date%: "29-Jul-87 12:04:16" {ERIS}<LISPCORE>INTERNAL>LIBRARY>ABC.;3)
7
+
8
+
9
+ (* "
10
+ Copyright (c) 1986, 1987, 1988 by Xerox Corporation. All rights reserved.
11
+ ")
12
+
13
+ (PRETTYCOMPRINT ABCCOMS)
14
+
15
+ (RPAQQ ABCCOMS ((VARS (MSRECORDTRANFLG T)
16
+ (DWIMIFYCOMPFLG)
17
+ (MSMACROPROPS COMPILERMACROPROPS)
18
+ (CLEANUPOPTIONS '(RC F))
19
+ (CROSSCOMPILING T)
20
+ (ASKEDITHIST T)
21
+ (RECOMPILEDEFAULT 'CHANGES)
22
+ (CROSSCOMPILING 'ASK))
23
+ (FILES (SOURCE)
24
+ FILESETS)
25
+ (P (MOVD? 'APPLY* 'SPREADAPPLY*)
26
+ [RESETVARS ((CROSSCOMPILING T))
27
+ (FILESLOAD EXPORTS.ALL)
28
+ (AND (EQ (ASKUSER DWIMWAIT 'N "Check imports? " NIL T)
29
+ 'Y)
30
+ (ERSETQ (CHECKIMPORTS EXPORTFILES T]
31
+ (PRIN1
32
+ "**** SET IL:DFNFLG TO IL:PROP IF YOU EDIT SYSTEM SOURCES THAT CAN'T BE RUN INTERPRETED"
33
+ T))))
34
+
35
+ (RPAQQ MSRECORDTRANFLG T)
36
+
37
+ (RPAQQ DWIMIFYCOMPFLG NIL)
38
+
39
+ (RPAQ MSMACROPROPS COMPILERMACROPROPS)
40
+
41
+ (RPAQQ CLEANUPOPTIONS (RC F))
42
+
43
+ (RPAQQ CROSSCOMPILING T)
44
+
45
+ (RPAQQ ASKEDITHIST T)
46
+
47
+ (RPAQQ RECOMPILEDEFAULT CHANGES)
48
+
49
+ (RPAQQ CROSSCOMPILING ASK)
50
+ (FILESLOAD (SOURCE)
51
+ FILESETS)
52
+ (MOVD? 'APPLY* 'SPREADAPPLY*)
53
+ [RESETVARS ((CROSSCOMPILING T))
54
+ (FILESLOAD EXPORTS.ALL)
55
+ (AND (EQ (ASKUSER DWIMWAIT 'N "Check imports? " NIL T)
56
+ 'Y)
57
+ (ERSETQ (CHECKIMPORTS EXPORTFILES T]
58
+ (PRIN1 "**** SET IL:DFNFLG TO IL:PROP IF YOU EDIT SYSTEM SOURCES THAT CAN'T BE RUN INTERPRETED" T)
59
+ (PUTPROPS ABC COPYRIGHT ("Xerox Corporation" 1986 1987 1988))
60
+ (DECLARE%: DONTCOPY
61
+ (FILEMAP (NIL)))
62
+ STOP
0 commit comments