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: 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/")
  
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)))
  
  