From a9bdc7427cd65416dbe7ae93b912b5b65500a9ee Mon Sep 17 00:00:00 2001
From: Tomek Kurcz <tomsandbox@gmail.com>
Date: Thu, 31 Aug 2017 10:10:27 +0200
Subject: [PATCH] texinfo: Port System construction from the old doc

---
 src/doc/new-doc/standards/index.txi      |  6 +++---
 src/doc/new-doc/standards/sys-constr.txi | 16 ++++++++++++++++
 2 files changed, 19 insertions(+), 3 deletions(-)
 create mode 100644 src/doc/new-doc/standards/sys-constr.txi

diff --git a/src/doc/new-doc/standards/index.txi b/src/doc/new-doc/standards/index.txi
index d0acd99ca..e31dc49b0 100644
--- a/src/doc/new-doc/standards/index.txi
+++ b/src/doc/new-doc/standards/index.txi
@@ -25,7 +25,7 @@
 * Streams::
 * Printer::
 * Reader::
-@c * System construction::
+* System construction::
 @c * Environment::
 @c * Glossary::
 @end menu
@@ -87,8 +87,8 @@
 @include standards/reader.txi
 @c @c #$ - random state
 
-@c @node System construction
-@c @section System construction
+@include standards/sys-constr.txi
+
 @c ext:*load-hooks*, si::*load-search-list* variable:
 
 @c EXT:*LOAD-HOOKS* is an assoc array of form ((TYPE . LOAD-FUNCTION)),
diff --git a/src/doc/new-doc/standards/sys-constr.txi b/src/doc/new-doc/standards/sys-constr.txi
new file mode 100644
index 000000000..3e7215009
--- /dev/null
+++ b/src/doc/new-doc/standards/sys-constr.txi
@@ -0,0 +1,16 @@
+@node System construction
+@section System construction
+
+@subsection C Reference
+
+@subsubsection ANSI Dictionary
+@subsubheading Synopsis
+
+@multitable @columnfractions .3 .7
+@headitem Lisp symbol @tab C function
+@item @clhs{f_cmp_fi.htm,compile-file} @tab [Only in Common Lisp]
+@item @clhs{f_cmp__1.htm,compile-file-pathname} @tab [Only in Common Lisp]
+@item @clhs{f_load.htm,load} @tab cl_object cl_load()
+@item @clhs{f_provid.htm,provide} @tab cl_object cl_provide(cl_object module_name)
+@item @clhs{f_provid.htm,require} @tab cl_object cl_require(cl_narg narg, cl_object module_name, ...)
+@end multitable