anchor.diff:  ;
   
   #-ECL
  -(DEFUN compile-lsp (LspFile FasFile)
  -  (COMPILE-FILE LspFile))
  +(DEFUN compile-lsp (File)
  +  (LET ((LspFile (FORMAT NIL "~A~A.lsp" BINARY-PATH File)))
  +    (COMPILE-FILE LspFile)))
   
   #+ECL
  -(DEFUN compile-lsp (LspFile FasFile)
  -  (LET ((ObjFile (FORMAT NIL "~A~A~A" BINARY-PATH LspFile OBJECT-SUFFIX)))
  +(DEFUN compile-lsp (File)
  +  (LET ((LspFile (FORMAT NIL "~A~A.lsp" BINARY-PATH File))
  +        (FasFile (FORMAT NIL "~A~A~A" BINARY-PATH File COMPILED-SUFFIX))
  +        (ObjFile (FORMAT NIL "~A~A~A" BINARY-PATH File OBJECT-SUFFIX)))
       (COMPILE-FILE LspFile :OUTPUT-FILE ObjFile :SYSTEM-P T)
       (PUSH ObjFile *object-files*)
       (C:BUILD-FASL FasFile :LISP-FILES (LIST ObjFile))))
  
positive.code:         (LspFile (FORMAT NIL "~A~A.lsp" BINARY-PATH File))
          (FasFile (FORMAT NIL "~A~A~A" BINARY-PATH File COMPILED-SUFFIX)))
      (copy-file SrcFile LspFile)
      (compile-lsp LspFile FasFile)
      (LOAD FasFile)))
  
  (DEFUN import-kl (File)
  
negative.code:         (LspFile (FORMAT NIL "~A~A.lsp" BINARY-PATH File))
          (FasFile (FORMAT NIL "~A~A~A" BINARY-PATH File COMPILED-SUFFIX)))
      (write-lsp-file LspFile (translate-kl (read-kl-file KlFile)))
      (compile-lsp File)
      (LOAD FasFile)))
  
  (DEFUN import-shen (File)
  