anchor.diff:  
   (eval-when (:compile-toplevel :load-toplevel :execute)
   
  -(defparameter $optimize-default     '(optimize (speed 1) (safety 3) (debug 3))
  +(defparameter $optimize-default '(optimize (speed 1) (safety 3) (debug 3))
     "Compiler optimization settings for safe, debuggable code.")
  +
   (defparameter $optimize-fast-unsafe '(optimize (speed 3) (safety 0) (debug 0))
     "Compiler optimization settings for fast, unsafe, hard-to-debug code.")
   
  
positive.code:     (intern (format nil "~{~A~^.~}" symbols)
              (symbol-package (first symbols)))))
  
  (defun split-qualified-symbol-name (symbol)
    "Given a SYMBOL named PKG::SYMBOL1.SYMBOL2....SYMBOLN, return a list of symbols
     (PKG::SYMBOL1.SYMBOL2... PKG::SYMBOLN) splitting on the last dot (#\.) in the symbol name."
    (let* ((symbol-string (string symbol))
           (pkg (symbol-package symbol))
           (symbol-strings (split-last symbol-string)))
      (mapcar (lambda (string)
                (intern string pkg))
              symbol-strings)))
  
  ;;; Collectors, etc
  
  (defun proto-slot-function-name (proto-type slot function-type)
  
negative.code: 
  ;;; String utilities
  
  (defun starts-with (string prefix)
    "Returns true if STRING matches PREFIX (case insensitive)."
    (and (i>= (length string) (length prefix))
         (string-equal string prefix :end1 (length prefix))
         prefix))
  
  (defun ends-with (string suffix)
    "Returns true if STRING matches SUFFIX (case insensitive)."
    (let ((string-len (length string))
          (suffix-len (length suffix)))
      (and (i>= string-len suffix-len)
           (string-equal string suffix :start1 (i- string-len suffix-len))
           suffix)))
  
  (defun strcat (&rest strings)
    "Return the concatenation of STRINGS. If no arguments are passed, the empty string is returned."
  