[Emacs-diffs] Changes to emacs/lisp/subr.el

[Jonathan Yavner]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.370 emacs/lisp/subr.el:1.371
*** emacs/lisp/subr.el:1.370    Thu Nov 27 16:28:01 2003
--- emacs/lisp/subr.el  Sun Nov 30 01:56:59 2003
***************
*** 62,67 ****
--- 62,81 ----
  
  (defalias 'not 'null)
  
+ (defmacro noreturn (form)
+   "Evaluates FORM, with the expectation that the evaluation will signal an 
error
+ instead of returning to its caller.  If FORM does return, an error is
+ signalled." 
+   `(prog1 ,form
+      (error "Form marked with `noreturn' did return")))
+ 
+ (defmacro 1value (form)
+   "Evaluates FORM, with the expectation that all the same value will be 
returned
+ from all evaluations of FORM.  This is the global do-nothing
+ version of `1value'.  There is also `testcover-1value' that
+ complains if FORM ever does return differing values."
+   form)
+ 
  (defmacro lambda (&rest cdr)
    "Return a lambda expression.
  A call of the form (lambda ARGS DOCSTRING INTERACTIVE BODY) is