anchor.diff:          (LspFile (FORMAT NIL "~A~A.lsp" NATIVE-PATH File))
           (FasFile (FORMAT NIL "~A~A~A" NATIVE-PATH File COMPILED-SUFFIX)))
       (copy-file SrcFile LspFile)
  -    #-ECL
  -    (COMPILE-FILE LspFile)
  -    #+ECL
  -    (LET ((ObjFile (FORMAT NIL "~A~A~A" NATIVE-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)))
  +    (compile-lsp LspFile FasFile)
       (LOAD FasFile)))
   
   (DEFUN import-kl (File)
  
positive.code:           WHILE (PLUSP Pos)
            DO (WRITE-SEQUENCE Buf Out :END Pos))))))
  
  (COMPILE 'import-lsp)
  (COMPILE 'import-kl)
  (COMPILE 'import-shen)
  
negative.code:   (SETF SB-EXT:*MUFFLED-WARNINGS* T))
  
  ;
  ; Implementation-Specific Loading Procedure
  ;
  
  #-ECL
  (DEFUN compile-lsp (LspFile FasFile)
    (COMPILE-FILE LspFile))
  
  #+ECL
  (DEFUN compile-lsp (LspFile FasFile)
    (LET ((ObjFile (FORMAT NIL "~A~A~A" NATIVE-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))))
  
  ;
  ; Shared Loading Procedure
  ;
  
  (DEFUN import-lsp (File)
  