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) |
;(defun pcl::find-class-no-error (object) |
94 |
(ignore-errors (find-class object))) |
; (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) |
;(setf (symbol-function 'si::find-class-no-error) |
102 |
(symbol-function 'pcl::find-class-no-error)) |
; (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) |