From 56a75fec475a4f2a3bf1ee5269e5485fd124582e Mon Sep 17 00:00:00 2001
From: Marius Gerbershagen <marius.gerbershagen@gmail.com>
Date: Mon, 27 Jan 2020 21:18:08 +0100
Subject: [PATCH] doc: document ext:with-backend

There's no perfect place to put this, I think it belongs next to
the documentation for the closely related ffi:defla.
---
 src/doc/manual/extensions/ffi_sffi.txi | 25 +++++++++++++++++++++++++
 src/doc/manual/status.org              |  6 +-----
 2 files changed, 26 insertions(+), 5 deletions(-)

diff --git a/src/doc/manual/extensions/ffi_sffi.txi b/src/doc/manual/extensions/ffi_sffi.txi
index 9013e3fd2..393f8262c 100644
--- a/src/doc/manual/extensions/ffi_sffi.txi
+++ b/src/doc/manual/extensions/ffi_sffi.txi
@@ -290,6 +290,31 @@ The interpreter ignores this form.
 @c determine that the actual arguments are of the specified type.
 @c <XXX
 
+@lspindex ext:with-backend
+@defspec ext:with-backend &key bytecodes c/c++
+
+Use different code depending on the backend.
+
+@subsubheading Description
+Depending on whether the bytecodes or C compiler is used, this form will
+emit the code given in the corresponding keyword argument.
+
+@subsubheading Examples
+@exindex @code{ext:with-backend} use different code for c and bytecodes compiler
+@verbatim
+CL-USER> (defmacro test ()
+           '(ext:with-backend :c/c++ "c/c++" :bytecodes "bytecodes"))
+TEST
+CL-USER> (test)
+"bytecodes"
+CL-USER> (funcall (compile nil (lambda () (test))))
+
+;;; OPTIMIZE levels: Safety=2, Space=0, Speed=3, Debug=3
+"c/c++"
+
+@end verbatim
+@end defspec
+
 @lspindex ffi:defla
 @defmac ffi:defla name args &body body
 
diff --git a/src/doc/manual/status.org b/src/doc/manual/status.org
index 420b2e222..5e232ab8d 100644
--- a/src/doc/manual/status.org
+++ b/src/doc/manual/status.org
@@ -59,7 +59,7 @@ Many nodes, moderate amount of content (deviations from the standard)
 - [ ] Series
 - [ ] Tree walker
 - [X] Local package nicknames
-- [ ] CDR Extensions
+- [X] CDR Extensions
 
 * Not documented yet
 #+BEGIN_SRC lisp
@@ -67,10 +67,6 @@ Many nodes, moderate amount of content (deviations from the standard)
     foo
     bar)
 
-  (ext:with-backend
-      :bytecodes fib
-      :c/c++     fact)
-  
   (ffi:definline …)
 #+END_SRC