-echo /creating contrib-docs.texi-temp
-echo "(load \"create-contrib-doc-list.lisp\")" | $SBCL --noinform --sysinit /dev/null --userinit /dev/null --noprint --disable-debugger
+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