anchor.diff:  (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 ./klambda directory
  +; 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
  -; Creates *.native files in the ./Native directory
  -; Creates and deletes *.fasl and *.intermed files
  -;     in the current directory over the course of running
   
  -(ENSURE-DIRECTORIES-EXIST "./Native/")
  +(ENSURE-DIRECTORIES-EXIST "./native/")
   
   (PROCLAIM '(OPTIMIZE (DEBUG 0) (SPEED 3) (SAFETY 3)))
   (DECLAIM (SB-EXT:MUFFLE-CONDITIONS SB-EXT:COMPILER-NOTE))
  
positive.code:       :IF-DOES-NOT-EXIST :CREATE)
      (FORMAT Out "~{~C~}" Chars)))
  
  (COMPILE 'write-out-kl)
  
  (DEFUN importfile (File)
    (LET ((SourceFile   (FORMAT NIL "~A.lsp" File))
          (CompiledFile (FORMAT NIL "~A.fasl" File)))
      (COMPILE-FILE SourceFile)
      (LOAD CompiledFile)
      (DELETE-FILE CompiledFile)))
  
  (importfile "primitives")
  (importfile "backend")
  
  (MAPC 'sbcl-install
        '("toplevel.kl"
          "core.kl"
          "sys.kl"
          "sequent.kl"
          "yacc.kl"
          "reader.kl"
          "prolog.kl"
          "track.kl"
          "load.kl"
          "writer.kl"
          "macros.kl"
          "declarations.kl"
          "types.kl"
          "t-star.kl"))
  
  (importfile "overwrite")
  (load "platform.shen")
  
  (MAPC 'FMAKUNBOUND '(boot writefile openfile importfile))
  
  (SAVE-LISP-AND-DIE
    (IF (FIND :WIN32 *FEATURES*) "shen.exe" "shen")
  
negative.code:         (SETQ R (READ In NIL NIL))
          (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)))
  
  (DEFUN nn-h (Lisp)
    (IF (NOT (CHAR-EQUAL (CAR Lisp) #\.))
  