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

Diff of /gcl/cmpnew/gcl_cmpbind.lsp

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

revision 1.1.2.1 by camm, Sun Sep 14 02:30:33 2003 UTC revision 1.1.2.2 by camm, Mon Dec 1 16:49:59 2003 UTC
# Line 50  Line 50 
50          (INTEGER          (INTEGER
51           (wt-nl "SETQ_IO(V" (var-loc var)","           (wt-nl "SETQ_IO(V" (var-loc var)","
52                  "V" (var-loc var)"alloc,")                  "V" (var-loc var)"alloc,")
53           (wt "(") (wt-vs (var-ref var)) (wt "));"))           (wt "(") (wt-vs (var-ref var)) (wt "),")
54             (wt (bignum-expansion-storage) ");"))
55          (t          (t
56           (wt-nl "V" (var-loc var) "=")           (wt-nl "V" (var-loc var) "=")
57           (case (var-kind var)           (case (var-kind var)

Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2

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