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

Diff of /gcl/cmpnew/gcl_cmpcall.lsp

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

revision 1.5 by camm, Fri Jan 7 17:58:33 2005 UTC revision 1.6 by camm, Wed Jun 29 04:29:47 2005 UTC
# Line 463  Line 463 
463             (wt-nl "(")               (wt-nl "(")  
464             (wt-loc  fun-loc)))             (wt-loc  fun-loc)))
465            (t            (t
466             (setq loc (list 'cvar (incf *next-cvar*)))             (setq loc (list 'cvar (cs-push t t))) ;(incf *next-cvar*)
467             (let ((*value-to-go* loc))             (let ((*value-to-go* loc))
468               (wt-nl               (wt-nl
469                "{object V" (second loc) ";")                "{object V" (second loc) ";")

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

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