ViewVC logotype

Diff of /meta-cvs/F-9E93CACBDB115633C66D0EF9B052C490

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

revision by kaz, Wed Apr 23 05:37:35 2003 UTC revision by kaz, Thu Apr 24 04:02:55 2003 UTC
# Line 101  of strings." Line 101  of strings."
101                          (metaonly "metaonly")                          (metaonly "metaonly")
102                          (nometa "nometa")                          (nometa "nometa")
103                          (ec "error-continue")                          (ec "error-continue")
                         (eb "error-bail")  
104                          (et "error-terminate")                          (et "error-terminate")
105                          (nesting-escape "up")                          (nesting-escape "up")
106                          (debug "debug"))                          (debug "debug"))
# Line 123  of strings." Line 122  of strings."
122      (when debug      (when debug
123        (setf *mcvs-chatter-level* *mcvs-debug*))        (setf *mcvs-chatter-level* *mcvs-debug*))
124      (cond      (cond
       (eb (setf *mcvs-error-treatment* :bail))  
125        (ec (setf *mcvs-error-treatment* :continue))        (ec (setf *mcvs-error-treatment* :continue))
126        (et (setf *mcvs-error-treatment* :terminate)))        (et (setf *mcvs-error-treatment* :terminate)))
127      remainder))      remainder))

Removed from v.  
changed lines
  Added in v.

  ViewVC Help
Powered by ViewVC 1.1.5