Parent Directory | Revision Log | 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) ";") |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |