odd-symbols.lisp

(defun odd-symbols ()
  (labels ((lambda-list-keyword (s)
             (member s lambda-list-keywords))
           (standard-declaration (s)
             (member s '(ignore
                         ignorable
                         dynamic-extent
                         special
                         type ftype
                         optimize
                         inline notineline
                         declaration)))
           (declaration-related (s)
             (or (standard-declaration s)
                 (member s '(declare notinline
                             safety speed space debug
                             compilation-speed))))
           (type-related (s)
             (member s '(satisfies)))
           (clos-related (s)
             (member s '(call-next-method
                         next-method-p
                         make-method
                         standard)))
           (documentation-related (s)
             (member s '(structure
                         variable
                         compiler-macro))))
    (let ((r '()))
      (do-external-symbols (s 'cl r)
        (when (not (or (fboundp s)
                       (boundp s)
                       (find-class s nil)
                       (ignore-errors (sb-kernel:type-or-nil-if-unknown s))
                       (clos-related s)
                       (declaration-related s)
                       (type-related s)
                       (documentation-related s)
                       (lambda-list-keyword s)))
          (push s r))))))