/[gcl]/gcl/pcl/impl/gcl/pcl_gcl_low.lisp
ViewVC logotype

Diff of /gcl/pcl/impl/gcl/pcl_gcl_low.lisp

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

revision 1.1 by camm, Wed Feb 26 22:21:42 2003 UTC revision 1.1.6.1 by camm, Thu Nov 6 16:16:54 2003 UTC
# Line 170  int n; object cc; Line 170  int n; object cc;
170    
171    
172    
173  object fSuse_fast_links();  object fSuse_fast_links_2(object,object);
174  static  static
175  object set_cclosure (result_cc,value_cc,available_size)  object set_cclosure (result_cc,value_cc,available_size)
176    object result_cc,value_cc; int available_size;    object result_cc,value_cc; int available_size;
# Line 179  object set_cclosure (result_cc,value_cc, Line 179  object set_cclosure (result_cc,value_cc,
179    
180    /* If we are currently using fast linking,     */    /* If we are currently using fast linking,     */
181    /* make sure to remove the link for result_cc. */    /* make sure to remove the link for result_cc. */
182    (VFUN_NARGS=2,fSuse_fast_links(sLnil,result_cc));    /*  (VFUN_NARGS=2,fSuse_fast_links_2(sLnil,result_cc));*/
183      fSuse_fast_links_2(sLnil,result_cc);
184    
185  /*  use_fast_links(3,Cnil,result_cc); */  /*  use_fast_links(3,Cnil,result_cc); */
186    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.1.6.1

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