anchor.diff:  (import-lsp "overwrite")
   (load "platform.shen")
   
  +(FMAKUNBOUND 'import-lsp)
  +(FMAKUNBOUND 'import-kl)
   (FMAKUNBOUND 'read-kl-file)
  +(FMAKUNBOUND 'clean-kl)
   (FMAKUNBOUND 'translate-kl)
   (FMAKUNBOUND 'write-lsp-file)
  -(FMAKUNBOUND 'import-lsp)
  -(FMAKUNBOUND 'import-kl)
   
   #+CLISP
   (PROGN
  
positive.code:     (MAPC #'(LAMBDA (X) (FORMAT Out "~S~%~%" X)) Code)
      File))
  
  (COMPILE 'read-kl-file)
  (COMPILE 'kl-cycle)
  (COMPILE 'write-lsp-file)
  
  (ENSURE-DIRECTORIES-EXIST NATIVE-PATH)
  
negative.code: (DEFUN read-kl-file (File)
    (WITH-OPEN-FILE
      (In File :DIRECTION :INPUT)
      (LET* ((CleanedCode (clean-kl (READ-CHAR In NIL NIL) In NIL NIL)))
        (READ-FROM-STRING (FORMAT NIL "(~A)" (COERCE CleanedCode 'STRING))))))
  
  (DEFUN clean-kl (Char In Chars InsideQuote)
    (IF (NULL Char)
      (REVERSE Chars)
      (clean-kl
        (READ-CHAR In NIL NIL)
        In
        (IF (AND (NOT InsideQuote) (MEMBER Char '(#\: #\; #\,) :TEST 'CHAR-EQUAL))
  