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

Diff of /gcl/cmpnew/cmpvs.lsp

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

revision 1.1.1.1 by wfs, Mon Dec 6 22:43:58 1999 UTC revision 1.1.1.1.14.1 by camm, Tue Sep 2 20:18:17 2003 UTC
# Line 59  Line 59 
59    (cond ((eq (car vs) 'cvar)    (cond ((eq (car vs) 'cvar)
60           (wt "V" (second vs)))           (wt "V" (second vs)))
61          ((eq (car vs) 'cs)          ((eq (car vs) 'cs)
62             (setq *vcs-used* t)
63           (wt "Vcs[" (cdr vs) "]"))           (wt "Vcs[" (cdr vs) "]"))
64          (t          (t
65           (if (= (car vs) *level*)           (if (= (car vs) *level*)

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.1.1.1.14.1

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