X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=README.md;h=718ee991467c979b3df764ec4ee2131877adb66d;hb=ea8abfa292363629e99e052cf21a0bfcd64d6ea1;hp=72316e8d6201005b42ac7dfc3e8b5ff5ba8b9cc0;hpb=34ea8f5e0879a13f4c6edda33791db036114e4fd;p=cl-mock.git

diff --git a/README.md b/README.md
index 72316e8..718ee99 100644
--- a/README.md
+++ b/README.md
@@ -42,7 +42,9 @@ dynamic function rebinding):
 
     > (declaim (notinline foo bar))
     > (defun foo () 'foo)
-    > (defun bar () 'bar)
+    > (defun bar (&rest args)
+    >   (declare (ignore args))
+    >   'bar)
     > (with-mocks ()
     >   (answer (foo 1) 42)
     >   (answer foo 23)
@@ -78,6 +80,21 @@ function call will fail and that error is propagated upwards.
 the list, which (as of now) isn't available via `ANSWER` (and should be
 treated as subject to change anyway).
 
+Should you wish to run the previously defined function, use the function
+`CALL-PREVIOUS`.  If no arguments are passed it will use the current
+arguments from `*ARGUMENTS*`, if any.  Otherwise it will be called with
+the passed arguments instead.  For cases where explicitely calling it
+with no arguments is necessary, using `(funcall *previous*)` is still
+possible as well.
+
+    > (with-mocks ()
+    >   (answer foo `(was originally ,(funcall *previous*)))
+    >   (answer bar `(was originally ,(call-previous)))
+    >   (values
+    >    (foo "hello")
+    >    (bar "hello")))
+    > => (WAS ORIGINALLY FOO) (WAS ORIGINALLY BAR)
+
 The function `INVOCATIONS` may be used to retrieve all recorded
 invocations of mocks (so far); the optional argument can be used to
 filter for a particular name: