anchor.diff:          (SETQ R (READ In NIL NIL))
           (PUSH R Rs))))
   
  -(DEFUN install-kl (File)
  +(DEFUN importkl (File)
     (LET ((KlFile       (FORMAT NIL "./kernel/klambda/~A.kl" File))
  -        (IntermedFile (FORMAT NIL "~A~A.intermed" *NATIVE-PATH* File))
  -        (LspFile      (FORMAT NIL "~A~A.lsp" *NATIVE-PATH* File))
  -        (ObjFile      (FORMAT NIL "~A~A.~A" *NATIVE-PATH* File #+CLISP "fas" #+SBCL "fasl")))
  +        (IntermedFile (FORMAT NIL "~A~A.intermed" NATIVE-PATH File))
  +        (LspFile      (FORMAT NIL "~A~A.lsp" NATIVE-PATH File))
  +        (ObjFile      (FORMAT NIL "~A~A~A" NATIVE-PATH File BINARY-SUFFIX)))
       (write-out-kl IntermedFile (read-in-kl KlFile))
       (boot IntermedFile LspFile)
       (COMPILE-FILE LspFile)
  
positive.code: ; Assumes *.kl files are in the ./kernel/klambda directory
  ; Creates intermediate code and binaries in a platform-specific sub-directory under ./native/
  
  (SETQ *NATIVE-PATH*
    #+CLISP "./native/clisp/"
    #+SBCL  "./native/sbcl/")
  
  (ENSURE-DIRECTORIES-EXIST *NATIVE-PATH*)
  
  (PROCLAIM '(OPTIMIZE (DEBUG 0) (SPEED 3) (SAFETY 3)))
  #+CLISP (SETQ CUSTOM:*COMPILE-WARNINGS* NIL)
  
negative.code:       :IF-DOES-NOT-EXIST :CREATE)
      (FORMAT Out "~{~C~}" Chars)))
  
  (DEFUN importlsp (File)
    (LET ((LspFile (FORMAT NIL "~A.lsp" File))
          (ObjFile (FORMAT NIL "~A~A~A" NATIVE-PATH File BINARY-SUFFIX)))
      (COMPILE-FILE LspFile :OUTPUT-FILE ObjFile)
      (LOAD ObjFile)))
  
  