anchor.diff:  (SETQ *porters* "Mark Tarver")
   (SETQ *os* (SOFTWARE-TYPE))
   
  -(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)
  
positive.code:         (PUSH R Rs))))
  
  (DEFUN sbcl-install (File)
    (LET* ((KlPath       (FORMAT NIL "./kernel/klambda/~A" File))
           (CopiedKlFile (FORMAT NIL "./native/~A.kl" File))
           (LspFile      (FORMAT NIL "./native/~A.lsp" File))
           (FaslFile     (FORMAT NIL "./native/~A.fasl" File))
           (KlCode       (read-in-kl KlPath)))
      (safedelete '(CopiedKlFile LspFile FaslFile))
      (write-out-kl CopiedKlFile KlCode)
      (boot CopiedKlFile LspFile)
      (COMPILE-FILE LspFile)
      (LOAD FaslFile)))
  
  
negative.code: (importfile "overwrite")
  (load "platform.shen")
  
  (MAPC 'FMAKUNBOUND '(boot writefile openfile importfile))
  
  (SAVE-LISP-AND-DIE
    (IF (FIND :WIN32 *FEATURES*) "shen.exe" "shen")
  