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: 
  ;;; String utilities
  
  (defun starts-with (string prefix &key (start 0))
    "Returns true if STRING matches PREFIX starting at index START (case insensitive)."
    (and (i>= (length string) (i+ start (length prefix)))
         (string-equal string prefix :start1 start :end1 (i+ start (length prefix)))
         prefix))
  
  (defun ends-with (string suffix &key (end (length string)))
    "Returns true if STRING matches SUFFIX ending at index END (case insensitive)."
    (and (i>= end (length suffix))
         (string-equal string suffix :start1 (i- end (length suffix)) :end1 end)
         suffix))
  
  (defun strcat (&rest strings)
    "Return the concatenation of STRINGS. If no arguments are passed, the empty string is returned."
  
negative.code:     (intern (format nil "~{~A~^.~}" symbols)
              (symbol-package (first symbols)))))
  
  ;;; Collectors, etc
  
  (defun proto-slot-function-name (proto-type slot function-type)
  