anchor.diff:    (let ((types (get-types-of-symbol symbol))
           (info ()))
       (loop for type in types
  -       collect (list symbol
  -                     type
  -                     (symbol-scope symbol)
  -                     (get-docstring-of-symbol symbol type)
  -                     (if (fboundp symbol) (get-args-of-symbol symbol))) into result
  -       finally (setf info result))
  +          collect (list symbol
  +                        type
  +                        (symbol-scope symbol)
  +                        (get-docstring-of-symbol symbol type)
  +                        (if (fboundp symbol) (get-args-of-symbol symbol))) into result
  +          finally (setf info result))
       ;Special handling for methods
       (if (find :generic types)
           (loop for method in (generic-function-methods (fdefinition symbol))
  
positive.code:   (let ((vars (list :name (symbol-name (nth 0 object))
                      :desc (format NIL "~:[~;~:*~a~]" (nth 3 object))
                      :args (if (find (nth 1 object) '(:function :macro :method :generic))
                                (format NIL "~:[()~;~:*~s~]" (nth 4 object))
                                "")
                      :type (format NIL "~a ~a" (nth 2 object) (nth 1 object)))))
      (loop for (key val) on fields by #'cddr
  
negative.code: (defun get-types-of-symbol (symbol)
    "Retrieves a list of all types of objects this symbol can represent."
    (remove NIL `(,(when (symbol-constant-p symbol) :constant)
                  ,(when (symbol-special-p symbol) :special)
                  ,(when (symbol-class-p symbol) :class)
                  ,(when (symbol-macro-p symbol) :macro)
                  ,(when (symbol-generic-p symbol) :generic)
                  ,(when (symbol-function-p symbol) :function))))
  
  (defun get-all-symbols (&optional package)
    "Gets all symbols within a package."
  