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