89 |
(import (list s) "COMMON-LISP") |
(import (list s) "COMMON-LISP") |
90 |
(import (list s) "USER")) |
(import (list s) "USER")) |
91 |
|
|
92 |
|
;(shadowing-import (list 'pcl::classp) "SYSTEM") |
93 |
|
(setf (symbol-function 'si::classp) (symbol-function 'pcl::classp)) |
94 |
|
(setf (symbol-function 'si::class-of) (symbol-function 'pcl::class-of)) |
95 |
|
(setf (symbol-function 'si::class-precedence-list) |
96 |
|
(symbol-function 'pcl::class-precedence-list)) |
97 |
|
|
98 |
(do-external-symbols (s "CONDITIONS") |
(do-external-symbols (s "CONDITIONS") |
99 |
(if (member s clcs_shadow) |
(if (member s clcs_shadow) |
100 |
(progn |
(progn |