anchor.diff:      (kl-cycle (READ-CHAR In NIL NIL) In NIL 0)))
   
   (DEFUN kl-cycle (Char In Chars State)
  -  (COND
  -    ((NULL Char)
  -     (REVERSE Chars))
  -    ((AND (MEMBER Char '(#\: #\; #\,) :TEST 'CHAR-EQUAL) (= State 0))
  -     (kl-cycle (READ-CHAR In NIL NIL) In (APPEND (LIST #\| Char #\|) Chars) State))
  -    ((CHAR-EQUAL Char #\")
  -     (kl-cycle (READ-CHAR In NIL NIL) In (CONS Char Chars) (flip State)))
  -    (T
  -     (kl-cycle (READ-CHAR In NIL NIL) In (CONS Char Chars) State))))
  +  (IF (NULL Char)
  +    (REVERSE Chars)
  +    (kl-cycle
  +      (READ-CHAR In NIL NIL)
  +      In
  +      (IF (AND (MEMBER Char '(#\: #\; #\,) :TEST 'CHAR-EQUAL) (= State 0))
  +        (APPEND (LIST #\| Char #\|) Chars)
  +        (CONS Char Chars))
  +      (IF (CHAR-EQUAL Char #\")
  +        (flip State)
  +        State))))
   
   (DEFUN flip (State)
     (IF (ZEROP State) 1 0))
  
positive.code:     ((FIND :OSX *FEATURES*) "Mac OSX")
      ((FIND :UNIX *FEATURES*) "Unix")))
  
  (DEFUN boot (InputFile OutputFile)
    (LET* ((KlCode (openfile InputFile))
           (LispCode (MAPCAR (FUNCTION (LAMBDA (X) (shen.kl-to-lisp NIL X))) KlCode)))
      (writefile OutputFile LispCode)))
  
negative.code:       :IF-DOES-NOT-EXIST :CREATE)
      (FORMAT Out "~{~C~}" Chars)))
  
  (DEFUN import-lsp (File)
    (LET ((LspFile (FORMAT NIL "~A.lsp" File))
          (ObjFile (FORMAT NIL "~A~A~A" NATIVE-PATH File BINARY-SUFFIX)))
      (COMPILE-FILE LspFile :OUTPUT-FILE ObjFile)
  