X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=doc%2Fmanual%2Fmake-tempfiles.sh;h=be2abf0afd2126ca84e583b5b7aa7f88404fe605;hb=26d0559df82a00acf85b8ec89541ee8e09bb3e55;hp=2f7fc3834e3f6548e60a32cfb3d09f186cc17eac;hpb=74476aa8940b2b2bc98ba46003a37ab558f608af;p=sbcl.git

diff --git a/doc/manual/make-tempfiles.sh b/doc/manual/make-tempfiles.sh
index 2f7fc38..be2abf0 100644
--- a/doc/manual/make-tempfiles.sh
+++ b/doc/manual/make-tempfiles.sh
@@ -72,3 +72,16 @@ then
 else
     cp package-locks-basic.texinfo package-locks.texi-temp
 fi
+
+echo /creating encodings.texi-temp
+$SBCL <<EOF
+(with-open-file (s "encodings.texi-temp" :direction :output :if-exists :supersede)
+  (let (result)
+    (sb-int:dohash ((key val) sb-impl::*external-formats*)
+      (pushnew (sb-impl::ef-names val) result :test #'equal))
+    (setq result (sort result #'string< :key #'car))
+    (format s "@table @code~%~%")
+    (loop for (cname . names) in result
+          do (format s "@item ~S~%~{@code{~S}~^, ~}~%~%" cname names))
+    (format s "@end table~%")))
+EOF