CM html-docs

[Anders Vinjar]

Recently i appended together all cm/doc/dict/*.html files for an
outprint.

In the files without entries, J,K,X,Y,Z if i remeber right, theres an
annoying <CENTER> tag at the bottom which doesnt get closed.

Heres some code to concatenate the files together for anyone interested:


(setf files
      '(#p"/local/cm-sys/xcm/doc/dict/Intro.html"
	  #p"/local/cm-sys/xcm/doc/dict/Symbols.html"
	  #p"/local/cm-sys/xcm/doc/dict/A.html"
	  #p"/local/cm-sys/xcm/doc/dict/B.html"
	  #p"/local/cm-sys/xcm/doc/dict/C.html" 
	  #p"/local/cm-sys/xcm/doc/dict/D.html"
	  #p"/local/cm-sys/xcm/doc/dict/E.html"
	  #p"/local/cm-sys/xcm/doc/dict/F.html"
	  #p"/local/cm-sys/xcm/doc/dict/G.html"
	  #p"/local/cm-sys/xcm/doc/dict/H.html"
	  #p"/local/cm-sys/xcm/doc/dict/I.html"
	  #p"/local/cm-sys/xcm/doc/dict/J.html"
	  #p"/local/cm-sys/xcm/doc/dict/K.html"
	  #p"/local/cm-sys/xcm/doc/dict/L.html"
	  #p"/local/cm-sys/xcm/doc/dict/M.html"
	  #p"/local/cm-sys/xcm/doc/dict/N.html"
	  #p"/local/cm-sys/xcm/doc/dict/O.html"
	  #p"/local/cm-sys/xcm/doc/dict/P.html"
	  #p"/local/cm-sys/xcm/doc/dict/Q.html"
	  #p"/local/cm-sys/xcm/doc/dict/R.html"
	  #p"/local/cm-sys/xcm/doc/dict/S.html"
	  #p"/local/cm-sys/xcm/doc/dict/T.html"
	  #p"/local/cm-sys/xcm/doc/dict/U.html"
	  #p"/local/cm-sys/xcm/doc/dict/V.html"
	  #p"/local/cm-sys/xcm/doc/dict/W.html"
	  #p"/local/cm-sys/xcm/doc/dict/X.html"
	  #p"/local/cm-sys/xcm/doc/dict/Y.html"
	  #p"/local/cm-sys/xcm/doc/dict/Z.html"))

(let ((filer files)
      (ut "All-entries.html"))
  (with-open-file (str-ut ut
			  :direction :output
			  :if-exists :supersede)
     (dolist (fil filer)
       (with-open-file (inn fil :direction :input)
	   (do ((linje (read-line inn nil nil) (read-line inn nil nil)))
	       ((not linje))
	     (format str-ut "~&~A" linje))))))