anchor.diff:    (do-all-symbols (s)
       (when (fboundp s)
         (delete-fun-debug-info (symbol-function s)))
  -    (sb-int:clear-info :source-location :declaration s)
  -    (sb-int:clear-info :type :source-location s)
  -    (sb-int:clear-info :source-location :variable s)
  -    (sb-int:clear-info :source-location :constant s)
  -    (sb-int:clear-info :source-location :typed-structure s)
  -    (sb-int:clear-info :source-location :symbol-macro s)
  -    (sb-int:clear-info :source-location :vop s)
  -    (sb-int:clear-info :source-location :declaration s)
  -    (sb-int:clear-info :source-location :alien-type s)
  -    (sb-int:clear-info :function :deprecated s)
  -    (sb-int:clear-info :variable :deprecated s)
  -    (sb-int:clear-info :type :deprecated s)
  -    (sb-int:clear-info :function :deprecated s)
  -    (sb-int:clear-info :function :deprecated s)
  -    (sb-int:clear-info :function :deprecated s)))
  +    (safe-clear-info :source-location :declaration s)
  +    (safe-clear-info :type :source-location s)
  +    (safe-clear-info :source-location :variable s)
  +    (safe-clear-info :source-location :constant s)
  +    (safe-clear-info :source-location :typed-structure s)
  +    (safe-clear-info :source-location :symbol-macro s)
  +    (safe-clear-info :source-location :vop s)
  +    (safe-clear-info :source-location :declaration s)
  +    (safe-clear-info :source-location :alien-type s)
  +    (safe-clear-info :function :deprecated s)
  +    (safe-clear-info :variable :deprecated s)
  +    (safe-clear-info :type :deprecated s)
  +    (safe-clear-info :function :deprecated s)
  +    (safe-clear-info :function :deprecated s)
  +    (safe-clear-info :function :deprecated s)))
  
positive.code:   (do-all-symbols (s)
      (when (fboundp s)
        (setf (sb-int:info :function :inlinep s) :notinline)
        (sb-int:clear-info :function :inline-expansion-designator s)
        ;; Does this have the same effect as proclaiming notinline?
        ;; --- seems like so. src/compiler/proclaim.lisp
        ;; --- SB-C::PROCESS-INLINE-DECLARATION
        (sb-int:clear-info :function :source-transform s)
        (sb-int:clear-info :function :info s)
        (sb-int:clear-info :function :ir1-convert s)
        (sb-int:clear-info :function :predicate-truth-constraint s)
        (sb-int:clear-info :function :macro-function s)
        (sb-int:clear-info :function :compiler-macro-function s))
      (let ((s `(setf ,s)))
        (when (fboundp s)
          (setf (sb-int:info :function :inlinep s) :notinline)
          (sb-int:clear-info :function :inline-expansion-designator s)
          (sb-int:clear-info :function :source-transform s)
          (sb-int:clear-info :function :info s)
          (sb-int:clear-info :function :ir1-convert s)
          (sb-int:clear-info :function :predicate-truth-constraint s)
          (sb-int:clear-info :function :macro-function s)
          (sb-int:clear-info :function :compiler-macro-function s)))))
  
  (defun destroy-packages-sbcl ()
    (when roswell:*main*
  
negative.code:     (:output
       (sb-ext:save-lisp-and-die (first args)))))
  
  (defun safe-clear-info (category kind name)
    (when (cond
            (;; 1.3.x -
             (find-symbol "META-INFO" :sb-int)
             (funcall (find-symbol "META-INFO" :sb-int) category kind nil))
            (;; 1.2.x - 1.3.x
             (find-symbol "META-INFO" :sb-c)
             (funcall (find-symbol "META-INFO" :sb-c) category kind nil))
            (;; - 1.1.18
             (find-symbol "TYPE-INFO-OR-LOSE" :sb-c)
             (ignore-errors
               (funcall (find-symbol "TYPE-INFO-OR-LOSE" :sb-c) category kind))))
      (sb-int:clear-info category kind name)))
  
  (defun delete-compiler-information-sbcl ()
    "This removes the entire compiler information about the functions.
  This includes macro/compiler-macro definitions, inline expansions, 
  