anchor.diff:  
   (defun integer-range (x &optional y z)
     "This function generates lists of integer ranges of the form [start, stop].
  -  It has three forms:
  -    (RANGE stop)
  -    (RANGE start stop)
  -    (RANGE start stop step)
  -  Negative numbers are allowed, and operate in a logical manner."
  +It has three forms:
  +
  +First form: (integer-range stop)
  +> (integer-range 10)
  +=> '(0 1 2 3 4 5 6 7 8 9 10)
  +
  +Second form: (integer-range start stop)
  +> (integer-range 5 10)
  +=> '(5 6 7 8 9 10)
  +
  +Third form: (integer-range start stop step)
  +> (integer-range 5 10 2)
  +=> '(5 7 9)
  +
  +Negative numbers are allowed, and operate in a logical manner.
  +> (integer-range -5 0)
  +=> '(-5 -4 -3 -2 -1 0)
  +> (integer-range 10 5 -1)
  +=> '(10 9 8 7 6 5) "
     (let (start stop step)
       (flet ((step-function ()
                (if (< start stop) 1 -1)))
  
positive.code: 
  (defun function-alias (function &rest aliases)
    "This produces one or more aliases (alternate names) for a function.
    For example, you might do something like:
      (function-alias 'that-guy-doesnt-know-when-to-stop-typing 'shorter)"
    (loop for alias in aliases
          do (setf (fdefinition alias) (fdefinition function))))
  
  
negative.code: 
  (defun tmsref (time-multiseries time &rest position)
    "This function works like AREF, but for a time series or multiseries.  The
  time multiseries is represented as a list of arrays, where there is an array
  for each time step representing all of the data for that step in time.
  A time series is represented as a list."
    (assert (or (time-multiseries? time-multiseries)
                (and (listp time-multiseries)
                     (null position))))
  