anchor.diff:  
   (COMPILE 'compile-lsp)
   (COMPILE 'import-lsp)
  -(COMPILE 'copy-file)
  +(COMPILE '|copy-file|)
   
   (ENSURE-DIRECTORIES-EXIST BINARY-PATH)
   
  
positive.code:   (LET ((SrcFile (FORMAT NIL "~A~A.lsp" Location File))
          (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 File)
      (LOAD FasFile)))
  
  (DEFUN copy-file (SrcFile DestFile)
    (WITH-OPEN-FILE
      (In SrcFile
        :DIRECTION    :INPUT
  
negative.code: 
  (FMAKUNBOUND 'compile-lsp)
  (FMAKUNBOUND 'import-lsp)
  (FMAKUNBOUND '|copy-file|)
  
  ;
  ; Implementation-Specific Executable Output
  