X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=doc%2Fmanual%2Fdocstrings.sh;h=e85747c5016825164784e362efbd6f12ac391940;hb=b194e5262c0ca11756bc01ea4427aad465dbcaa0;hp=51a971ddf9e7cee4185b37c50f07dbbbf9406d7e;hpb=df01da3bc94cf28a52fe949a4f157a970b597ec9;p=sbcl.git

diff --git a/doc/manual/docstrings.sh b/doc/manual/docstrings.sh
index 51a971d..e85747c 100644
--- a/doc/manual/docstrings.sh
+++ b/doc/manual/docstrings.sh
@@ -10,30 +10,26 @@
 # more information.
 
 # how we invoke SBCL
-#
-# Until sbcl-0.6.12.8, the shell variable SBCL was bound to a relative
-# pathname, but now we take care to bind it to an absolute pathname (still
-# generated relative to `pwd` in the tests/ directory) so that tests
-# can chdir before invoking SBCL and still work.
 
 # We create the documentation from the in-tree sbcl if it is found,
 # else an installed sbcl is used.
 sbclsystem=`pwd`/../../src/runtime/sbcl
 if [ -e $sbclsystem ] 
 then
-SBCL="${1:-$sbclsystem --core `pwd`/../output/sbcl.core}"
+SBCL="${1:-$sbclsystem --core `pwd`/../../output/sbcl.core}"
+export SBCL_HOME=`pwd`/../../contrib
 else
 SBCL="${1:-`which sbcl`}"
 fi
 
-# List of package names that documentation will be created for.
-PACKAGES=":SB-EXT"
-
 # Output directory.  This has to end with a slash (it's interpreted by
-# Lisp's `pathname' function) or you lose.
+# Lisp's `pathname' function) or you lose.  This is normally set from
+# Makefile.
 DOCSTRINGDIR="${DOCSTRINGDIR:-docstrings/}"
 
+# List of package names that documentation will be created for.  This
+# is normally set from Makefile.
+PACKAGES="${PACKAGES:-:COMMON-LISP :SB-ALIEN :SB-DEBUG :SB-EXT :SB-GRAY :SB-MOP :SB-PROFILE :SB-THREAD}"
 
 echo /creating docstring snippets from SBCL=\'$SBCL\' for packages \'$PACKAGES\'
-
 echo "(progn (load \"docstrings.lisp\") (docstrings-to-texinfo \"$DOCSTRINGDIR\" $PACKAGES) (sb-ext:quit))" | $SBCL --noinform --sysinit /dev/null --userinit /dev/null --noprint --disable-debugger