/[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.6 by camm, Tue Dec 14 03:34:06 2004 UTC revision 1.7 by camm, Fri Jan 7 17:58:33 2005 UTC
# Line 203  Line 203 
203           (wt "(fixnum)")(wt-inline-loc (caddr loc) (cadddr loc)))           (wt "(fixnum)")(wt-inline-loc (caddr loc) (cadddr loc)))
204          ((and (consp loc) (eq (car loc) 'fixnum-value))          ((and (consp loc) (eq (car loc) 'fixnum-value))
205           (wt "(fixnum)")(wt (caddr loc)))           (wt "(fixnum)")(wt (caddr loc)))
206          (t (wt "fix(" loc ")"))))          (t (wt (if *safe-compile* "fixint(" "fix(") loc ")"))))
207    
208  (defun wt-integer-loc (loc &optional type  (defun wt-integer-loc (loc &optional type
209                             &aux (avma t)(first (and (consp loc) (car loc))))                             &aux (avma t)(first (and (consp loc) (car loc))))

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

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