anchor.diff:      (FORMAT Out "~{~C~}" Chars)))
   
   (DEFUN importfile (File)
  -  (LET ((LspFile        (FORMAT NIL "~A.lsp" File))
  -        (CopiedLspFile  (FORMAT NIL "./native/~A.lsp" File))
  -        (FaslFile       (FORMAT NIL "./native/~A.fasl" File)))
  -    (safedelete '(CopiedLspFile FaslFile))
  -    (COPY-FILE LspFile CopiedLspFile)
  -    (COMPILE-FILE LspFile)
  +  (LET ((LspFile  (FORMAT NIL "~A.lsp" File))
  +        (FaslFile (FORMAT NIL "./native/~A.fasl" File)))
  +    (COMPILE-FILE LspFile :OUTPUT-FILE FaslFile)
       (LOAD FaslFile)))
   
   (COMPILE 'read-in-kl)
  
positive.code: (SETQ *porters* "Mark Tarver")
  (SETQ *os* (SOFTWARE-TYPE))
  
  (DEFUN safedelete (File)
    (IF (CONSP File)
      (MAPC 'safedelete File)
      (IF (PROBE-FILE File) (DELETE-FILE File))))
  
  (DEFUN boot (InputFile OutputFile)
    (LET* ((KlCode (openfile InputFile))
           (LispCode (MAPCAR (FUNCTION (LAMBDA (X) (shen.kl-to-lisp NIL X))) KlCode)))
      (safedelete OutputFile)
      (writefile OutputFile LispCode)))
  
  (DEFUN writefile (File Out)
  
negative.code:         (PUSH R Rs))))
  
  (DEFUN sbcl-install (File)
    (LET ((KlFile       (FORMAT NIL "./kernel/klambda/~A.kl" File))
          (IntermedFile (FORMAT NIL "./native/~A.intermed" File))
          (LspFile      (FORMAT NIL "./native/~A.lsp" File))
          (FaslFile     (FORMAT NIL "./native/~A.fasl" File)))
      (write-out-kl IntermedFile (read-in-kl KlFile))
      (boot IntermedFile LspFile)
      (COMPILE-FILE LspFile)
      (LOAD FaslFile)))
  
  