/[gcl]/gcl/lsp/serror.c
ViewVC logotype

Diff of /gcl/lsp/serror.c

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

revision 1.8 by camm, Mon Oct 14 05:24:43 2002 UTC revision 1.9 by camm, Sun Feb 9 22:35:15 2003 UTC
# Line 135  T23:; Line 135  T23:;
135  }  }
136  /*      local entry for function UNIVERSAL-ERROR-HANDLER        */  /*      local entry for function UNIVERSAL-ERROR-HANDLER        */
137    
138  static object LI4(va_alist)  static object LI4(object first,...)
         va_dcl  
139  {        {      
140          va_list ap;          va_list ap;
141          int narg = VFUN_NARGS; VMB4 VMS4 VMV4          int narg = VFUN_NARGS; VMB4 VMS4 VMV4
142          {register object V24;          {register object V24;
143          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
144          va_start(ap);          va_start(ap,first);
145          narg= narg - 0;          narg= narg - 0;
146          V25 = list_vector(narg,ap);          V25 = list_vector_new(narg,first,ap);
147          V24= V25;          V24= V25;
148          if((symbol_value(VV[24]))==Cnil){          if((symbol_value(VV[24]))==Cnil){
149          goto T29;}          goto T29;}

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