Google
 
Trailing-Edge - PDP-10 Archives - clisp - clisp/upsala/float.clisp
There are no other files named float.clisp in the archive.
(defun f (x)
  (format nil "~6,2F|~6,2,1,'*F|~6,2,,'?F|~6F|~,2F|~F"
	  x x x x x x))
	  
(defun e (x)
  (format nil
	  "~9,2,1,,'*E|~10,3,2,2,'?,,'$E|~9,3,2,-2,'%@e|~9,2E"
	  x x x x))

(defun g (x)
  (format nil
	  "~9,2,1,,'*G|~9,3,2,3,'?,,'$G|~9,3,2,0,'%G|~9,2G"
	  x x x x))