anchor.diff:  
   (MAPC 'FMAKUNBOUND '(boot writefile openfile))
   
  -(SAVE-LISP-AND-DIE (IF (FIND :WIN32 *FEATURES*) "shen.exe" "shen")
  -                   :EXECUTABLE T
  -                   :SAVE-RUNTIME-OPTIONS T
  -                   :TOPLEVEL 'SHEN-TOPLEVEL)
  +(SAVE-LISP-AND-DIE
  +  (IF (FIND :WIN32 *FEATURES*) "shen.exe" "shen")
  +  :EXECUTABLE T
  +  :SAVE-RUNTIME-OPTIONS T
  +  :TOPLEVEL 'SHEN-TOPLEVEL)
  
positive.code: 
  (DEFUN boot (File)
    (LET* ((SourceCode (openfile File))
           (ObjectCode (MAPCAR
                         (FUNCTION (LAMBDA (X) (shen.kl-to-lisp NIL X))) SourceCode)))
          (HANDLER-CASE (DELETE-FILE (FORMAT NIL "~A.lsp" File))
            (ERROR (E) NIL))
          (writefile (FORMAT NIL "~A.lsp" File) ObjectCode)))
  
  (DEFUN writefile (File Out)
      (WITH-OPEN-FILE (OUTSTREAM File
                                 :DIRECTION :OUTPUT
                                 :IF-EXISTS :OVERWRITE
                                 :IF-DOES-NOT-EXIST :CREATE)
      (FORMAT OUTSTREAM "~%")
      (MAPC (FUNCTION (LAMBDA (X) (FORMAT OUTSTREAM "~S~%~%" X))) Out)
    File))
  
  (DEFUN openfile (File)
   (WITH-OPEN-FILE (In File :DIRECTION :INPUT)
     (DO ((R T) (Rs NIL))
        ((NULL R) (NREVERSE (CDR Rs)))
         (SETQ R (READ In NIL NIL))
         (PUSH R Rs))))
  
  (DEFUN sbcl-install (File)
    (LET* ((Read (read-in-kl File))
           (Intermediate (FORMAT NIL "~A.intermed" File))
           (Write (write-out-kl Intermediate Read)))
          (boot Intermediate)
          (COMPILE-FILE (FORMAT NIL "~A.lsp" Intermediate))
     	(LOAD (FORMAT NIL "~A.fasl" Intermediate))
          (DELETE-FILE Intermediate)
  	(move-file (FORMAT NIL "~A.lsp" Intermediate))
  	(DELETE-FILE (FORMAT NIL "~A.fasl" Intermediate))
        (DELETE-FILE File)  ))
  
  (DEFUN move-file (Lisp)
    (LET ((Rename (native-name Lisp)))
         (IF (PROBE-FILE Rename) (DELETE-FILE Rename))
         (RENAME-FILE Lisp Rename)))
  
  (DEFUN native-name (Lisp)
     (FORMAT NIL "Native/~{~C~}.native"
  
negative.code:       (CONS (CAR Lisp) (nn-h (CDR Lisp)))))
  
  (DEFUN read-in-kl (File)
    (WITH-OPEN-FILE
      (In File :DIRECTION :INPUT)
      (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))))
  
  (DEFUN flip (State) (IF (ZEROP State) 1 0))
  
  (COMPILE 'read-in-kl)
  (COMPILE 'kl-cycle)
  (COMPILE 'flip)
  
  (DEFUN write-out-kl (File Chars)
    (WITH-OPEN-FILE
      (Out File
        :DIRECTION         :OUTPUT
        :IF-EXISTS         :OVERWRITE
        :IF-DOES-NOT-EXIST :CREATE)
      (FORMAT Out "~{~C~}" Chars)))
  
  (COMPILE 'write-out-kl)
  
  