/[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.2 by camm, Sun Sep 14 02:43:01 2003 UTC revision 1.3 by camm, Mon Dec 1 17:01:10 2003 UTC
# Line 198  Line 198 
198    
199  (defun wt-integer-loc (loc &optional type  (defun wt-integer-loc (loc &optional type
200                             &aux (avma t)(first (and (consp loc) (car loc))))                             &aux (avma t)(first (and (consp loc) (car loc))))
201      (declare (ignore type))
202    (case first    (case first
203      (inline-fixnum      (inline-fixnum
204       (wt "stoi(")       (wt "stoi(")

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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