anchor.diff:      ((FIND :OSX *FEATURES*) "Mac OSX")
       ((FIND :UNIX *FEATURES*) "Unix")))
   
  -(DEFUN boot (InputFile OutputFile)
  +(DEFUN translate-kl (InputFile OutputFile)
     (LET* ((KlCode (openfile InputFile))
            (LispCode (MAPCAR (FUNCTION (LAMBDA (X) (shen.kl-to-lisp NIL X))) KlCode)))
       (writefile OutputFile LispCode)))
  
positive.code: (COMPILE 'flip)
  (COMPILE 'write-out-kl)
  
  (importlsp "primitives")
  (importlsp "backend")
  (importkl "toplevel")
  (importkl "core")
  (importkl "sys")
  (importkl "sequent")
  (importkl "yacc")
  (importkl "reader")
  (importkl "prolog")
  (importkl "track")
  (importkl "load")
  (importkl "writer")
  (importkl "macros")
  (importkl "declarations")
  (importkl "types")
  (importkl "t-star")
  (importlsp "overwrite")
  (load "platform.shen")
  
  (MAPC 'FMAKUNBOUND '(boot writefile openfile importlsp))
  
  #+CLISP (EXT:SAVEINITMEM
    (FORMAT NIL "~A~A" NATIVE-PATH MEM-NAME)
  
negative.code:     (kl-cycle (READ-CHAR In NIL NIL) In NIL 0)))
  
  (DEFUN kl-cycle (Char In 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))
  