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: (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 writefile (File Out)
    (WITH-OPEN-FILE
  
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) #\.))
  