anchor.diff:  (SETQ *porters* "Mark Tarver")
   (SETQ *os* (SOFTWARE-TYPE))
   
  -(DEFUN boot (File)
  -  (LET* ((KlCode (openfile File))
  -         (LispCode (MAPCAR (FUNCTION (LAMBDA (X) (shen.kl-to-lisp NIL X))) KlCode))
  -         (LspFile (FORMAT NIL "~A.lsp" File)))
  -    (IF (PROBE-FILE LspFile) (DELETE-FILE LspFile))
  -    (writefile LspFile LispCode)))
  +(DEFUN safedelete (File)
  +  (IF (CONSP File)
  +    (MAPC 'safedelete File)
  +    (IF (PROBE-FILE File) (DELETE-FILE File))))
  +
  +(DEFUN boot (InputFile OutputFile)
  +  (LET* ((KlCode (openfile InputFile))
  +         (LispCode (MAPCAR (FUNCTION (LAMBDA (X) (shen.kl-to-lisp NIL X))) KlCode)))
  +    (safedelete OutputFile)
  +    (writefile OutputFile LispCode)))
   
   (DEFUN writefile (File Out)
     (WITH-OPEN-FILE
  
positive.code:         (SETQ R (READ In NIL NIL))
          (PUSH R Rs))))
  
  (DEFUN sbcl-install (KlFile)
    (LET* ((KlPath       (FORMAT NIL "./klambda/~A" KlFile))
           (IntermedFile (FORMAT NIL "~A.intermed" KlFile))
           (LspFile      (FORMAT NIL "~A.lsp" IntermedFile))
           (FaslFile     (FORMAT NIL "~A.fasl" IntermedFile))
           (Read         (read-in-kl KlPath)))
      (write-out-kl IntermedFile Read)
      (boot IntermedFile)
      (COMPILE-FILE LspFile)
      (LOAD FaslFile)
      (DELETE-FILE IntermedFile)
      (move-file LspFile)
      (DELETE-FILE FaslFile)))
  
  (DEFUN move-file (Lisp)
    (LET ((Rename (native-name Lisp)))
      (IF (PROBE-FILE Rename) (DELETE-FILE Rename))
      (RENAME-FILE Lisp Rename)))
  
  (DEFUN native-name (Lisp)
    (FORMAT NIL "Native/~{~C~}.native" (nn-h (COERCE Lisp 'LIST))))
  
  (DEFUN nn-h (Lisp)
    (IF (NOT (CHAR-EQUAL (CAR Lisp) #\.))
  
negative.code: (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
  SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE."
  
  ; Assumes *.kl files are in the ./kernel/klambda directory
  ; Creates *.kl, *.lsp and *.fasl files in the ./native directory
  ; Creates shen[.exe] file in the current directory
  
  (ENSURE-DIRECTORIES-EXIST "./native/")
  
  (PROCLAIM '(OPTIMIZE (DEBUG 0) (SPEED 3) (SAFETY 3)))
  (DECLAIM (SB-EXT:MUFFLE-CONDITIONS SB-EXT:COMPILER-NOTE))
  