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: (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
  SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE."
  
  ;;SBCL Installation
  ;;install and wipe away the junk
  
  (PROCLAIM '(OPTIMIZE (DEBUG 0) (SPEED 3) (SAFETY 3)))
  (DECLAIM (SB-EXT:MUFFLE-CONDITIONS SB-EXT:COMPILER-NOTE))
  
negative.code: 
  (DEFUN boot (File)
    (LET* ((SourceCode (openfile File))
           (ObjectCode (MAPCAR (FUNCTION (LAMBDA (X) (shen.kl-to-lisp NIL X))) SourceCode))
           (LspFile (FORMAT NIL "~A.lsp" File)))
      (IF (PROBE-FILE LspFile) (DELETE-FILE LspFile))
      (writefile LspFile 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 ((IntermedFile (FORMAT NIL "~A.intermed" File))
          (LspFile      (FORMAT NIL "~A.lsp" IntermedFile))
          (FaslFile     (FORMAT NIL "~A.fasl" IntermedFile)))
      (LET* ((Read (read-in-kl File))
             (Write (write-out-kl IntermedFile Read)))
        (boot IntermedFile)
        (COMPILE-FILE LspFile)
        (LOAD FaslFile)
        (DELETE-FILE IntermedFile)
        (move-file LspFile)
        (DELETE-FILE FaslFile)
        (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"
  