anchor.diff:  (DEFUN read-kl-file (File)
     (WITH-OPEN-FILE
       (In File :DIRECTION :INPUT)
  -    (LET* ((CleanedCode (kl-cycle (READ-CHAR In NIL NIL) In NIL NIL)))
  +    (LET* ((CleanedCode (clean-kl (READ-CHAR In NIL NIL) In NIL NIL)))
         (READ-FROM-STRING (FORMAT NIL "(~A)" (COERCE CleanedCode 'STRING))))))
   
  -(DEFUN kl-cycle (Char In Chars InsideQuote)
  +(DEFUN clean-kl (Char In Chars InsideQuote)
     (IF (NULL Char)
       (REVERSE Chars)
  -    (kl-cycle
  +    (clean-kl
         (READ-CHAR In NIL NIL)
         In
         (IF (AND (NOT InsideQuote) (MEMBER Char '(#\: #\; #\,) :TEST 'CHAR-EQUAL))
  
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: (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)
  
  #+CLISP
  (PROGN
  