113 |
(setq compiler::*default-system-p* nil) |
(setq compiler::*default-system-p* nil) |
114 |
(setq compiler::*keep-gaz* nil) |
(setq compiler::*keep-gaz* nil) |
115 |
|
|
|
|
|
|
|
|
116 |
(setq clcs_shadow |
(setq clcs_shadow |
117 |
'(CONDITIONS::BREAK |
'(CONDITIONS::BREAK |
118 |
CONDITIONS::ERROR |
CONDITIONS::ERROR |
205 |
(symbol-function 'pcl::class-precedence-list)) |
(symbol-function 'pcl::class-precedence-list)) |
206 |
(setf (symbol-function 'si::find-class) |
(setf (symbol-function 'si::find-class) |
207 |
(symbol-function 'pcl::find-class)) |
(symbol-function 'pcl::find-class)) |
208 |
|
(setf (symbol-function 'si::find-class-no-error) |
209 |
|
(symbol-function 'conditions::find-class-no-error)) |
210 |
|
|
211 |
(do-external-symbols (s "CONDITIONS") |
(do-external-symbols (s "CONDITIONS") |
212 |
(if (member s clcs_shadow) |
(if (member s clcs_shadow) |
213 |
(progn |
(progn |