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

Diff of /gcl/cmpnew/gcl_cmpinline.lsp

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

revision 1.8 by camm, Sat Mar 20 17:42:13 2004 UTC revision 1.9 by camm, Sat Dec 11 00:34:35 2004 UTC
# Line 435  Line 435 
435                      (push (list 'CVAR cvar) locs1)                      (push (list 'CVAR cvar) locs1)
436                      (case coersion                      (case coersion
437                       ((nil) (wt "object V" cvar "= ") (wt-loc loc1))                       ((nil) (wt "object V" cvar "= ") (wt-loc loc1))
438                       (FIXNUM-LOC (wt "int V" cvar "= ") (wt-fixnum-loc loc))                       (FIXNUM-LOC (wt "fixnum V" cvar "= ") (wt-fixnum-loc loc))
439                       (integer-loc (wt "GEN V" cvar "= ") (wt-integer-loc loc                       (integer-loc (wt "GEN V" cvar "= ") (wt-integer-loc loc
440                                                                           'get-inline-locs))                                                                           'get-inline-locs))
441                       (CHARACTER-LOC                       (CHARACTER-LOC

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