90 |
(import (list s) "USER")) |
(import (list s) "USER")) |
91 |
|
|
92 |
;(shadowing-import (list 'pcl::classp) "SYSTEM") |
;(shadowing-import (list 'pcl::classp) "SYSTEM") |
93 |
|
(defun pcl::find-class-no-error (object) |
94 |
|
(ignore-errors (find-class object))) |
95 |
(setf (symbol-function 'si::classp) (symbol-function 'pcl::classp)) |
(setf (symbol-function 'si::classp) (symbol-function 'pcl::classp)) |
96 |
(setf (symbol-function 'si::class-of) (symbol-function 'pcl::class-of)) |
(setf (symbol-function 'si::class-of) (symbol-function 'pcl::class-of)) |
97 |
(setf (symbol-function 'si::class-precedence-list) |
(setf (symbol-function 'si::class-precedence-list) |
98 |
(symbol-function 'pcl::class-precedence-list)) |
(symbol-function 'pcl::class-precedence-list)) |
99 |
(setf (symbol-function 'si::find-class) |
(setf (symbol-function 'si::find-class) |
100 |
(symbol-function 'pcl::find-class)) |
(symbol-function 'pcl::find-class)) |
101 |
|
(setf (symbol-function 'si::find-class-no-error) |
102 |
|
(symbol-function 'pcl::find-class-no-error)) |
103 |
|
|
104 |
(do-external-symbols (s "CONDITIONS") |
(do-external-symbols (s "CONDITIONS") |
105 |
(if (member s clcs_shadow) |
(if (member s clcs_shadow) |