69 |
;*print-pprint-dispatch* *print-right-margin* *read-eval*)) |
;*print-pprint-dispatch* *print-right-margin* *read-eval*)) |
70 |
; (import (list s) "COMMON-LISP")) |
; (import (list s) "COMMON-LISP")) |
71 |
|
|
72 |
|
;anything in "SYSTEM" which should go in "COMMON-LISP" |
73 |
|
;can be added to shadow-system |
74 |
|
(setf shadow-system '(system::copy-structure)) |
75 |
|
|
76 |
|
(do-external-symbols (s "SYSTEM") |
77 |
|
(when (member s shadow-system) |
78 |
|
(shadowing-import (list s) "COMMON-LISP") |
79 |
|
(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 |
137 |
|
|
138 |
(makunbound 'clcs_shadow) |
(makunbound 'clcs_shadow) |
139 |
(makunbound 'lisp_unexport) |
(makunbound 'lisp_unexport) |
140 |
|
(makunbound 'shadow-system) |
141 |
(unintern 'clcs_shadow) |
(unintern 'clcs_shadow) |
142 |
(unintern 'lisp_unexport) |
(unintern 'lisp_unexport) |
143 |
(unintern 'int) |
(unintern 'int) |
144 |
|
(unintern 'shadow-system) |
145 |
|
|
146 |
(push ':ansi-cl *features*) |
(push ':ansi-cl *features*) |
147 |
|
|