anchor.diff:  (import-lsp "overwrite")
   (load "platform.shen")
   
  -(FMAKUNBOUND 'prepare-kl)
  +(FMAKUNBOUND 'read-kl-file)
   (FMAKUNBOUND 'translate-kl)
  -(FMAKUNBOUND 'open-kl-file)
   (FMAKUNBOUND 'write-lsp-file)
   (FMAKUNBOUND 'import-lsp)
   (FMAKUNBOUND 'import-kl)
  
positive.code:     (MAPC #'(LAMBDA (X) (FORMAT Out "~S~%~%" X)) Code)
      File))
  
  (DEFUN import-lsp (File)
    (LET ((LspFile (FORMAT NIL "~A.lsp" File))
          (ObjFile (FORMAT NIL "~A~A~A" NATIVE-PATH File COMPILED-SUFFIX)))
      (COMPILE-FILE LspFile :OUTPUT-FILE ObjFile)
      (LOAD ObjFile)))
  
  (COMPILE 'read-in-kl)
  (COMPILE 'kl-cycle)
  (COMPILE 'flip)
  (COMPILE 'write-out-kl)
  
  (ENSURE-DIRECTORIES-EXIST NATIVE-PATH)
  
  
negative.code:   (DECLAIM (SB-EXT:MUFFLE-CONDITIONS SB-EXT:COMPILER-NOTE))
    (SETF SB-EXT:*MUFFLED-WARNINGS* T))
  
  (DEFUN import-lsp (File)
    (LET ((LspFile (FORMAT NIL "~A.lsp" File))
          (ObjFile (FORMAT NIL "~A~A~A" NATIVE-PATH File COMPILED-SUFFIX)))
      (COMPILE-FILE LspFile :OUTPUT-FILE ObjFile)
      (LOAD ObjFile)))
  
  (DEFUN import-kl (File)
    (LET ((KlFile       (FORMAT NIL "./kernel/klambda/~A.kl" File))
          (LspFile      (FORMAT NIL "~A~A.lsp" NATIVE-PATH File))
          (ObjFile      (FORMAT NIL "~A~A~A" NATIVE-PATH File COMPILED-SUFFIX)))
      (write-lsp-file LspFile (translate-kl (read-kl-file KlFile)))
      (COMPILE-FILE LspFile)
      (LOAD ObjFile)))
  
  (DEFUN read-kl-file (File)
    (WITH-OPEN-FILE
      (In File :DIRECTION :INPUT)
      (LET* ((CleanedCode (kl-cycle (READ-CHAR In NIL NIL) In NIL NIL)))
        (READ-FROM-STRING (FORMAT NIL "(~A)" (COERCE CleanedCode 'STRING))))))
  
  (DEFUN kl-cycle (Char In Chars InsideQuote)
    (IF (NULL Char)
      (REVERSE Chars)
      (kl-cycle
        (READ-CHAR In NIL NIL)
        In
        (IF (AND (NOT InsideQuote) (MEMBER Char '(#\: #\; #\,) :TEST 'CHAR-EQUAL))
          (LIST* #\| Char #\| Chars)
          (CONS Char Chars))
        (IF (CHAR-EQUAL Char #\")
          (NOT InsideQuote)
          InsideQuote))))
  
  (DEFUN translate-kl (KlCode)
    (MAPCAR #'(LAMBDA (X) (shen.kl-to-lisp NIL X)) KlCode))
  
  (DEFUN write-lsp-file (File Code)
    (WITH-OPEN-FILE
  