/[gcl]/gcl/unixport/init_ansi_gcl.lsp.in
ViewVC logotype

Diff of /gcl/unixport/init_ansi_gcl.lsp.in

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

revision 1.3 by camm, Sun Sep 14 02:43:08 2003 UTC revision 1.4 by camm, Mon Sep 22 21:55:53 2003 UTC
# Line 113  Line 113 
113   (setq compiler::*default-system-p* nil)   (setq compiler::*default-system-p* nil)
114   (setq compiler::*keep-gaz* nil)   (setq compiler::*keep-gaz* nil)
115    
   
   
116   (setq clcs_shadow   (setq clcs_shadow
117         '(CONDITIONS::BREAK         '(CONDITIONS::BREAK
118           CONDITIONS::ERROR           CONDITIONS::ERROR
# Line 207  Line 205 
205         (symbol-function 'pcl::class-precedence-list))         (symbol-function 'pcl::class-precedence-list))
206   (setf (symbol-function 'si::find-class)   (setf (symbol-function 'si::find-class)
207         (symbol-function 'pcl::find-class))         (symbol-function 'pcl::find-class))
208     (setf (symbol-function 'si::find-class-no-error)
209            (symbol-function 'conditions::find-class-no-error))
210    
211   (do-external-symbols (s "CONDITIONS")   (do-external-symbols (s "CONDITIONS")
212                        (if (member s clcs_shadow)                        (if (member s clcs_shadow)
213                            (progn                            (progn

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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