/[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.5 by camm, Mon Dec 2 21:11:29 2002 UTC revision 1.6 by camm, Fri Jan 24 18:38:28 2003 UTC
# Line 89  Line 89 
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

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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