/[gcl]/gcl/cmpnew/gcl_cmploc.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmploc.lsp

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

revision 1.7 by camm, Fri Jan 7 17:58:33 2005 UTC revision 1.8 by camm, Wed Jun 22 01:37:25 2005 UTC
# Line 221  Line 221 
221         (fixnum           (wt "stoi(V" (var-loc (cadr loc))")"))         (fixnum           (wt "stoi(V" (var-loc (cadr loc))")"))
222         (otherwise (wt "otoi(" loc ")"))))         (otherwise (wt "otoi(" loc ")"))))
223      (otherwise (wt "otoi(" loc ")")))      (otherwise (wt "otoi(" loc ")")))
224    (and avma (not *restore-avma*)(wfs-error))  ;  (and avma (not *restore-avma*)(wfs-error))
225    )    )
226            
227    

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

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