63 |
LISP::KYOTO |
LISP::KYOTO |
64 |
LISP::CCLOSURE)) |
LISP::CCLOSURE)) |
65 |
|
|
66 |
|
;(dolist (s '(*compile-file-pathname* *compile-file-truename* |
67 |
|
;*compile-print* *compile-verbose* *load-pathname* *load-print* |
68 |
|
;*load-truename* *print-lines* *print-miser-width* |
69 |
|
;*print-pprint-dispatch* *print-right-margin* *read-eval*)) |
70 |
|
; (import (list s) "COMMON-LISP")) |
71 |
|
|
72 |
(do-external-symbols (s "LISP") |
(do-external-symbols (s "LISP") |
73 |
(if (not(member s lisp_unexport)) |
(if (not(member s lisp_unexport)) |
74 |
(progn |
(progn |
88 |
(import (list s) "COMMON-LISP") |
(import (list s) "COMMON-LISP") |
89 |
(import (list s) "USER")))) |
(import (list s) "USER")))) |
90 |
|
|
91 |
|
(dolist (s '(*compile-file-pathname* *compile-file-truename* |
92 |
|
*compile-print* *compile-verbose* *load-pathname* *load-print* |
93 |
|
*load-truename* *print-lines* *print-miser-width* |
94 |
|
*print-pprint-dispatch* *print-right-margin* *read-eval* |
95 |
|
lisp::arithmetic-error broadcast-stream-streams cell-error |
96 |
|
cell-error-name compile compile-file compiler-macro |
97 |
|
compiler-macro-function complement concatenated-stream-streams |
98 |
|
condition control-error copy-pprint-dispatch copy-structure count |
99 |
|
debug define-compiler-macro define-setf-expander define-symbol-macro |
100 |
|
defpackage describe describe-object division-by-zero dynamic-extent |
101 |
|
echo-stream-input-stream echo-stream-output-stream |
102 |
|
ensure-directories-exist fdefinition file-string-length formatter |
103 |
|
function-lambda-expression get-setf-expansion hash-table-rehash-size |
104 |
|
hash-table-rehash-threshold ignorable interactive-stream-p |
105 |
|
load-logical-pathname-translations load-time-value |
106 |
|
logical-pathname-translations make-load-form |
107 |
|
make-load-form-saving-slots make-method open-stream-p pathname-match-p |
108 |
|
pprint-dispatch pprint-exit-if-list-exhausted pprint-fill |
109 |
|
pprint-indent pprint-linear pprint-logical-block pprint-newline |
110 |
|
pprint-pop pprint-tab pprint-tabular print-not-readable-object |
111 |
|
print-unreadable-object read-sequence readtable-case row-major-aref |
112 |
|
set-pprint-dispatch simple-condition-format-control |
113 |
|
stream-external-format synonym-stream-symbol |
114 |
|
translate-logical-pathname translate-pathname |
115 |
|
two-way-stream-input-stream two-way-stream-output-stream |
116 |
|
unbound-slot-instance upgraded-array-element-type |
117 |
|
upgraded-complex-part-type wild-pathname-p with-compilation-unit |
118 |
|
with-condition-restarts with-package-iterator with-standard-io-syntax |
119 |
|
write-sequence )) |
120 |
|
(import (list s) "COMMON-LISP")) |
121 |
|
|
122 |
(use-package "ANSI-LOOP" "COMMON-LISP") |
(use-package "ANSI-LOOP" "COMMON-LISP") |
123 |
(use-package "ANSI-LOOP" "USER") |
(use-package "ANSI-LOOP" "USER") |
124 |
|
|