anchor.diff:      (T
        (kl-cycle (READ-CHAR In NIL NIL) In (CONS Char Chars) State))))
   
  -(DEFUN flip (State) (IF (ZEROP State) 1 0))
  -
  -(COMPILE 'read-in-kl)
  -(COMPILE 'kl-cycle)
  -(COMPILE 'flip)
  +(DEFUN flip (State)
  +  (IF (ZEROP State) 1 0))
   
   (DEFUN write-out-kl (File Chars)
     (WITH-OPEN-FILE
  
positive.code: (SETQ *porters* "Mark Tarver")
  (SETQ *os* (SOFTWARE-TYPE))
  
  (DEFUN boot (File)
    (LET* ((KlCode (openfile File))
           (LispCode (MAPCAR (FUNCTION (LAMBDA (X) (shen.kl-to-lisp NIL X))) KlCode))
           (LspFile (FORMAT NIL "~A.lsp" File)))
      (IF (PROBE-FILE LspFile) (DELETE-FILE LspFile))
      (writefile LspFile LispCode)))
  
  (DEFUN writefile (File Out)
    (WITH-OPEN-FILE
  
negative.code: (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
  SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE."
  
  ; Assumes *.kl files are in the ./kernel/klambda directory
  ; Creates *.kl, *.lsp and *.fasl files in the ./native directory
  ; Creates shen[.exe] file in the current directory
  
  (ENSURE-DIRECTORIES-EXIST "./native/")
  
  (PROCLAIM '(OPTIMIZE (DEBUG 0) (SPEED 3) (SAFETY 3)))
  (DECLAIM (SB-EXT:MUFFLE-CONDITIONS SB-EXT:COMPILER-NOTE))
  