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

Diff of /gcl/cmpnew/cmpif.lsp

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

revision 1.2 by camm, Sat Jul 20 07:10:54 2002 UTC revision 1.3 by camm, Mon Aug 5 20:36:08 2002 UTC
# Line 404  Line 404 
404        (wt-label label)))        (wt-label label)))
405    
406    (if (eq default 't)    (if (eq default 't)
407        (progn (wt-nl "FEerror(\"The ECASE key value ~s is illegal.\",1,V" cvar ");")(c2expr (cdr (first clauses))))        (progn (wt-nl "FEerror(\"The ECASE key value ~s is illegal.\",1,V" cvar ");")
408                 (unwind-exit nil 'jump))
409        (c2expr default))        (c2expr default))
410    
411    (wt "}")    (wt "}")

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