anchor.diff:    (SETF SB-EXT:*MUFFLED-WARNINGS* T))
   
   ;
  -; Shared KL-Loading Procedure
  +; 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)
  
positive.code:         (LspFile (FORMAT NIL "~A~A.lsp" NATIVE-PATH File))
          (FasFile (FORMAT NIL "~A~A~A" NATIVE-PATH File COMPILED-SUFFIX)))
      (write-lsp-file LspFile (translate-kl (read-kl-file KlFile)))
      #-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)))
      (LOAD FasFile)))
  
  (DEFUN import-shen (File)
  
negative.code:         (LspFile (FORMAT NIL "~A~A.lsp" NATIVE-PATH File))
          (FasFile (FORMAT NIL "~A~A~A" NATIVE-PATH File COMPILED-SUFFIX)))
      (copy-file SrcFile LspFile)
      (compile-lsp LspFile FasFile)
      (LOAD FasFile)))
  
  (DEFUN import-kl (File)
  