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:       (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)
    (HANDLER-CASE (DELETE-FILE File)
        (ERROR (E) NIL))
    (WITH-OPEN-FILE (Out File :DIRECTION :OUTPUT :IF-EXISTS :OVERWRITE :IF-DOES-NOT-EXIST :CREATE)
     (FORMAT Out "~{~C~}" Chars)))
  
  (COMPILE 'write-out-kl)
  
  
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 current directory
  ; Assumes ./Native directory exists
  ; Creates *.native files in the ./Native directory
  ; Deletes *.kl files
  ; Creates shen.mem file
  ; Creates and deletes *.fasl and *.intermed files over the course of running
  
  (PROCLAIM '(OPTIMIZE (DEBUG 0) (SPEED 3) (SAFETY 3)))
  (DECLAIM (SB-EXT:MUFFLE-CONDITIONS SB-EXT:COMPILER-NOTE))
  