Parent Directory | Revision Log | Patch
revision 1.14 by camm, Sat Jul 23 08:56:26 2005 UTC | revision 1.15 by pfdietz, Sat Aug 27 00:11:18 2005 UTC | |
---|---|---|
# | Line 211 | Line 211 |
211 | ||
212 | ;anything in "SYSTEM" which should go in "COMMON-LISP" | ;anything in "SYSTEM" which should go in "COMMON-LISP" |
213 | ;can be added to shadow-system | ;can be added to shadow-system |
214 | (setf shadow-system '(system::copy-structure)) | (setf shadow-system '(system::copy-structure |
215 | system::define-compiler-macro | |
216 | system::compiler-macro-function)) | |
217 | ||
218 | (do-external-symbols (s "SYSTEM") | (do-external-symbols (s "SYSTEM") |
219 | (when (member s shadow-system) | (when (member s shadow-system) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |