New pointer type for WordNet 3,1 database

[reanz59]

parse-wordnet-data.lisp needs to include:

(define-wordnet-pointer-symbol "+" :adverb :derivationally-related-form) ; added by reanz1959

Complete set of pointer symbols should now be:

(progn
;; It's debatable which of these should or shouldn't be considered transitive.
;; I made a quick guess and could easily be wrong about some of these. Let me
;; know what you think.
(define-wordnet-pointer-type :also-see nil nil)
(define-wordnet-pointer-type :antonym nil nil)
(define-wordnet-pointer-type :attribute nil nil)
(define-wordnet-pointer-type :cause :up nil)
(define-wordnet-pointer-type :derived-from nil nil)
(define-wordnet-pointer-type :entailment t :up)
(define-wordnet-pointer-type :hypernym t :up :hyponym)
(define-wordnet-pointer-type :substance-hypernym t :up :substance-hyponym)
(define-wordnet-pointer-type :instance-hypernym t :up :instance-hyponym)
(define-wordnet-pointer-type :member-holonym nil :up :member-meronym)
(define-wordnet-pointer-type :part-holonym t :up :part-meronym)
(define-wordnet-pointer-type :participle-of-verb nil nil)
(define-wordnet-pointer-type :pertainym nil nil)
(define-wordnet-pointer-type :similar-to nil nil)
(define-wordnet-pointer-type :substance-holonym t :up :substance-meronym)
(define-wordnet-pointer-type :verb-group nil nil)
(define-wordnet-pointer-type :derivationally-related-form nil nil)
(define-wordnet-pointer-type :domain-of-synset-topic nil :down :member-of-domain-topic)
(define-wordnet-pointer-type :domain-of-synset-region nil :down :member-of-domain-region)
(define-wordnet-pointer-type :domain-of-synset-usage nil :down :member-of-domain-usage)

(define-wordnet-pointer-symbol "!" :noun :antonym)
(define-wordnet-pointer-symbol "@" :noun :hypernym)
(define-wordnet-pointer-symbol "~" :noun :hyponym)
(define-wordnet-pointer-symbol "@i" :noun :substance-hypernym)
(define-wordnet-pointer-symbol "~i" :noun :substance-hyponym)
(define-wordnet-pointer-symbol "#m" :noun :member-meronym)
(define-wordnet-pointer-symbol "#s" :noun :substance-meronym)
(define-wordnet-pointer-symbol "#p" :noun :part-meronym)
(define-wordnet-pointer-symbol "%m" :noun :member-holonym)
(define-wordnet-pointer-symbol "%s" :noun :substance-holonym)
(define-wordnet-pointer-symbol "%p" :noun :part-holonym)
(define-wordnet-pointer-symbol "=" :noun :attribute)
(define-wordnet-pointer-symbol "+" :noun :derivationally-related-form)
(define-wordnet-pointer-symbol ";c" :noun :domain-of-synset-topic)
(define-wordnet-pointer-symbol "-c" :noun :member-of-domain-topic)
(define-wordnet-pointer-symbol ";r" :noun :domain-of-synset-region)
(define-wordnet-pointer-symbol "-r" :noun :member-of-domain-region)
(define-wordnet-pointer-symbol ";u" :noun :domain-of-synset-usage)
(define-wordnet-pointer-symbol "-u" :noun :member-of-domain-usage)

(define-wordnet-pointer-symbol "!" :verb :antonym)
(define-wordnet-pointer-symbol "@" :verb :hypernym)
(define-wordnet-pointer-symbol "~" :verb :hyponym)
(define-wordnet-pointer-symbol "*" :verb :entailment)
(define-wordnet-pointer-symbol ">" :verb :cause)
(define-wordnet-pointer-symbol "^" :verb :also-see)
(define-wordnet-pointer-symbol "$" :verb :verb-group)
(define-wordnet-pointer-symbol "+" :verb :derivationally-related-form)
(define-wordnet-pointer-symbol ";c" :verb :domain-of-synset-topic)
(define-wordnet-pointer-symbol ";r" :verb :domain-of-synset-region)
(define-wordnet-pointer-symbol ";u" :verb :domain-of-synset-usage)

(define-wordnet-pointer-symbol "!" :adjective :antonym)
(define-wordnet-pointer-symbol "&" :adjective :similar-to)
(define-wordnet-pointer-symbol "<" :adjective :participle-of-verb)
(define-wordnet-pointer-symbol "\" :adjective :pertainym)
(define-wordnet-pointer-symbol "=" :adjective :attribute)
(define-wordnet-pointer-symbol "^" :adjective :also-see)
(define-wordnet-pointer-symbol "+" :adjective :derivationally-related-form)
(define-wordnet-pointer-symbol ";c" :adjective :domain-of-synset-topic)
(define-wordnet-pointer-symbol ";r" :adjective :domain-of-synset-region)
(define-wordnet-pointer-symbol ";u" :adjective :domain-of-synset-usage)

(define-wordnet-pointer-symbol "!" :adverb :antonym)
(define-wordnet-pointer-symbol "+" :adverb :derivationally-related-form) ; added by reanz1959
(define-wordnet-pointer-symbol "\" :adverb :derived-from)
(define-wordnet-pointer-symbol ";c" :adverb :domain-of-synset-topic)
(define-wordnet-pointer-symbol ";r" :adverb :domain-of-synset-region)
(define-wordnet-pointer-symbol ";u" :adverb :domain-of-synset-usage))