;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 123.244
;;; Reason:
;;;  Fix format:scientific number (for ~\scientific\ directive).
;;;  The *scientific-number-power-table* was missing the "pico"
;;;  multiple, and was off by 3 orders of magnitude for "femto"
;;;  and "atto".  (Also, "femto" was misspelled.)
;;; Written 27-Apr-88 15:56:22 by keith at site Gigamos Cambridge
;;; while running on Azathoth from band 1
;;; with Experimental System 123.240, Experimental Local-File 73.4, Experimental FILE-Server 22.2, Experimental Unix-Interface 11.0, Experimental KERMIT 34.3, Experimental ZMail 71.0, Experimental Lambda-Diag 15.0, Experimental Tape 22.1, microcode 1755, SDU Boot Tape 3.14, SDU ROM 8, the old ones.



; From modified file DJ: L.IO; FORMAT.LISP#272 at 27-Apr-88 15:56:40
#10R FORMAT#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "FORMAT")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: IO; FORMAT  "


(DEFVAR *SCIENTIFIC-NUMBER-POWER-TABLE*
	'((0 "")
	  (-3 "milli")
	  (-6 "micro")
	  (-9 "nano")
	  (-12 "pico")
	  (-15 "femto")
	  (-18 "atto")
	  (3 "kilo")
	  (6 "mega")
	  (9 "giga")
	  (12 "tera")))

))