/[gcl]/gcl/unixport/ansi_cl.lisp
ViewVC logotype

Diff of /gcl/unixport/ansi_cl.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by camm, Wed Feb 26 22:21:43 2003 UTC revision 1.9 by camm, Mon Sep 22 22:03:50 2003 UTC
# Line 90  Line 90 
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)

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26