1 |
(setq clcs_shadow |
(setq clcs_shadow |
2 |
'(CONDITIONS::BREAK |
'(CONDITIONS::BREAK |
3 |
CONDITIONS::ERROR |
CONDITIONS::ERROR |
4 |
CONDITIONS::CERROR |
CONDITIONS::CERROR |
5 |
CONDITIONS::WARN |
CONDITIONS::WARN |
6 |
CONDITIONS::CHECK-TYPE |
CONDITIONS::CHECK-TYPE |
7 |
CONDITIONS::ASSERT |
CONDITIONS::ASSERT |
8 |
CONDITIONS::ETYPECASE |
CONDITIONS::ETYPECASE |
9 |
CONDITIONS::CTYPECASE |
CONDITIONS::CTYPECASE |
10 |
CONDITIONS::ECASE |
CONDITIONS::ECASE |
11 |
CONDITIONS::CCASE )) |
CONDITIONS::CCASE )) |
12 |
|
|
13 |
(setq lisp_unexport |
(setq lisp_unexport |
14 |
'(LISP::LAMBDA-BLOCK-CLOSURE |
'(LISP::LAMBDA-BLOCK-CLOSURE |
15 |
LISP::BYE |
LISP::BYE |
16 |
LISP::QUIT |
LISP::QUIT |
17 |
LISP::EXIT |
LISP::EXIT |
18 |
LISP::IEEE-FLOATING-POINT |
LISP::IEEE-FLOATING-POINT |
19 |
LISP::DEFENTRY |
LISP::DEFENTRY |
20 |
LISP::VOID |
LISP::VOID |
21 |
LISP::ALLOCATE-CONTIGUOUS-PAGES |
LISP::ALLOCATE-CONTIGUOUS-PAGES |
22 |
LISP::UNSIGNED-SHORT |
LISP::UNSIGNED-SHORT |
23 |
LISP::DOUBLE |
LISP::DOUBLE |
24 |
LISP::BY |
LISP::BY |
25 |
LISP::GBC |
LISP::GBC |
26 |
LISP::DEFCFUN |
LISP::DEFCFUN |
27 |
LISP::SAVE |
LISP::SAVE |
28 |
LISP::MAXIMUM-CONTIGUOUS-PAGES |
LISP::MAXIMUM-CONTIGUOUS-PAGES |
29 |
LISP::SPICE |
LISP::SPICE |
30 |
LISP::DEFLA |
LISP::DEFLA |
31 |
LISP::ALLOCATED-PAGES |
LISP::ALLOCATED-PAGES |
32 |
LISP::SUN |
LISP::SUN |
33 |
LISP::INT |
LISP::INT |
34 |
LISP::USE-FAST-LINKS |
LISP::USE-FAST-LINKS |
35 |
LISP::CFUN |
LISP::CFUN |
36 |
LISP::UNSIGNED-CHAR |
LISP::UNSIGNED-CHAR |
37 |
LISP::HELP |
LISP::HELP |
38 |
LISP::HELP* |
LISP::HELP* |
39 |
LISP::MACRO |
LISP::MACRO |
40 |
LISP::*BREAK-ENABLE* |
LISP::*BREAK-ENABLE* |
41 |
LISP::CLINES |
LISP::CLINES |
42 |
LISP::LAMBDA-CLOSURE |
LISP::LAMBDA-CLOSURE |
43 |
LISP::OBJECT |
LISP::OBJECT |
44 |
LISP::FAT-STRING |
LISP::FAT-STRING |
45 |
LISP::SIGNED-SHORT |
LISP::SIGNED-SHORT |
46 |
LISP::MC68020 |
LISP::MC68020 |
47 |
LISP::LAMBDA-BLOCK |
LISP::LAMBDA-BLOCK |
48 |
LISP::TAG |
LISP::TAG |
49 |
LISP::PROCLAMATION |
LISP::PROCLAMATION |
50 |
LISP::ALLOCATED-CONTIGUOUS-PAGES |
LISP::ALLOCATED-CONTIGUOUS-PAGES |
51 |
LISP::*EVAL-WHEN-COMPILE* |
LISP::*EVAL-WHEN-COMPILE* |
52 |
LISP::SIGNED-CHAR |
LISP::SIGNED-CHAR |
53 |
LISP::*IGNORE-MAXIMUM-PAGES* |
LISP::*IGNORE-MAXIMUM-PAGES* |
54 |
LISP::*LINK-ARRAY* |
LISP::*LINK-ARRAY* |
55 |
LISP::KCL |
LISP::KCL |
56 |
LISP::BSD |
LISP::BSD |
57 |
LISP::ALLOCATE-RELOCATABLE-PAGES |
LISP::ALLOCATE-RELOCATABLE-PAGES |
58 |
LISP::ALLOCATE |
LISP::ALLOCATE |
59 |
LISP::UNIX |
LISP::UNIX |
60 |
LISP::MAXIMUM-ALLOCATABLE-PAGES |
LISP::MAXIMUM-ALLOCATABLE-PAGES |
61 |
LISP::ALLOCATED-RELOCATABLE-PAGES |
LISP::ALLOCATED-RELOCATABLE-PAGES |
62 |
LISP::SYSTEM |
LISP::SYSTEM |
63 |
LISP::KYOTO |
LISP::KYOTO |
64 |
LISP::CCLOSURE)) |
LISP::CCLOSURE)) |
65 |
|
|
66 |
;(dolist (s '(*compile-file-pathname* *compile-file-truename* |
;(dolist (s '(*compile-file-pathname* *compile-file-truename* |
67 |
;*compile-print* *compile-verbose* *load-pathname* *load-print* |
;*compile-print* *compile-verbose* *load-pathname* *load-print* |
68 |
;*load-truename* *print-lines* *print-miser-width* |
;*load-truename* *print-lines* *print-miser-width* |
79 |
(shadowing-import (list s) "USER"))) |
(shadowing-import (list s) "USER"))) |
80 |
|
|
81 |
|
|
82 |
(do-external-symbols (s "LISP") |
(do-external-symbols (s "LISP") |
83 |
(if (not(member s lisp_unexport)) |
(if (not(member s lisp_unexport)) |
84 |
(progn |
(progn |
85 |
(import (list s) "COMMON-LISP") |
(import (list s) "COMMON-LISP") |
86 |
(import (list s) "USER")) )) |
(import (list s) "USER")) )) |
87 |
|
|
88 |
(do-external-symbols (s "PCL") |
(do-external-symbols (s "PCL") |
89 |
(import (list s) "COMMON-LISP") |
(import (list s) "COMMON-LISP") |
90 |
(import (list s) "USER")) |
(import (list s) "USER")) |
91 |
|
|
92 |
(do-external-symbols (s "CONDITIONS") |
(do-external-symbols (s "CONDITIONS") |
93 |
(if (member s clcs_shadow) |
(if (member s clcs_shadow) |
94 |
(progn |
(progn |
95 |
(shadowing-import (list s) "COMMON-LISP") |
(shadowing-import (list s) "COMMON-LISP") |
96 |
(shadowing-import (list s) "USER")) |
(shadowing-import (list s) "USER")) |
97 |
(progn |
(progn |
98 |
(import (list s) "COMMON-LISP") |
(import (list s) "COMMON-LISP") |
99 |
(import (list s) "USER")))) |
(import (list s) "USER")))) |
100 |
|
|
101 |
(dolist (s '(*compile-file-pathname* *compile-file-truename* |
(dolist (s '(*compile-file-pathname* *compile-file-truename* |
102 |
*compile-print* *compile-verbose* *load-pathname* *load-print* |
*compile-print* *compile-verbose* *load-pathname* *load-print* |
131 |
|
|
132 |
(use-package "ANSI-LOOP" "COMMON-LISP") |
(use-package "ANSI-LOOP" "COMMON-LISP") |
133 |
(use-package "ANSI-LOOP" "USER") |
(use-package "ANSI-LOOP" "USER") |
134 |
|
|
135 |
(do-symbols (s "COMMON-LISP") |
(do-symbols (s "COMMON-LISP") |
136 |
(export (list s) "COMMON-LISP")) |
(export (list s) "COMMON-LISP")) |
137 |
|
|
138 |
(makunbound 'clcs_shadow) |
(makunbound 'clcs_shadow) |
139 |
(makunbound 'lisp_unexport) |
(makunbound 'lisp_unexport) |
143 |
(unintern 'int) |
(unintern 'int) |
144 |
(unintern 'shadow-system) |
(unintern 'shadow-system) |
145 |
|
|
146 |
(push ':ansi-cl *features*) |
(push :common-lisp *features*) |
147 |
|
(push :ansi-cl *features*) |
148 |
|
|
149 |
(rename-package 'common-lisp 'common-lisp '(cl)) |
(rename-package 'common-lisp 'common-lisp '(cl)) |
150 |
(rename-package 'user 'common-lisp-user '(cl-user user)) |
(rename-package 'user 'common-lisp-user '(cl-user user)) |
151 |
|
|
152 |
(si::save-system "saved_ansi_gcl") |
(si::save-system "saved_ansi_gcl") |
153 |
|
|