anchor.diff:  
   (defun load-verbocean ()
     (setf *verbocean* (make-hash-table :test #'equal :size 15000))
  -  (load-complex-corpus (merge-pathnames "corpora/verbocean-translated.csv" *basedir*) *verbocean*))
  +  (load-translated-corpus (merge-pathnames "corpora/verbocean-translated.csv" *basedir*) *verbocean*))
   
   (defun load-swadesh ()
     (setf *swadesh* (make-hash-table :test #'equal :size 320))
  -  (load-complex-corpus (merge-pathnames "corpora/swadesh.csv" *basedir*) *swadesh*))
  +  (load-translated-corpus (merge-pathnames "corpora/swadesh.csv" *basedir*) *swadesh*))
   
   (defun load-dhbb ()
     (setf *dhbb* (make-hash-table :test #'equal :size 15000))
     (setf *dhbb-stats* (make-hash-table :test #'equal))
     (load-frequency (merge-pathnames "corpora/dhbb-freq.csv" *basedir*) *dhbb-stats*)
  -  (load-complex-corpus (merge-pathnames "corpora/verbos-DHBB.csv" *basedir*) *dhbb*))
  +  (load-translated-corpus (merge-pathnames "corpora/verbos-DHBB.csv" *basedir*) *dhbb*))
   
   (defun load-compex ()
     (setf *compex* (make-hash-table :test #'equal :size 500))
  -  (load-complex-corpus (merge-pathnames "corpora/compex-en-pt.csv" *basedir*) *compex*))
  +  (load-translated-corpus (merge-pathnames "corpora/compex-en-pt.csv" *basedir*) *compex*))
   
   (defun load-portal-da-lingua-portuguesa ()
     (setf *portal-da-lingua-portuguesa* (make-hash-table :test #'equal :size 15000))
  
positive.code: 
  (defun load-verbnet ()
    (setf *verbnet* (make-hash-table :test #'equal :size 15000))
    (load-complex-corpus  (merge-pathnames "corpora/verbnet.br.csv" *basedir*) *verbnet*))
  
  (defun load-synset-candidates ()
    (setf *synset-candidates* (make-hash-table :test #'equal :size 100))
    (load-complex-corpus  (merge-pathnames "corpora/synset-candidates.csv" *basedir*) *synset-candidates*))
  
  (defun load-thousand-common-verbs ()
    (setf *thousand-common-verbs* (make-hash-table :test #'equal :size 1000))
  
negative.code: (defparameter *nomlex-floating* nil)
  (defparameter *nomlex-floating-translated* nil)
  
  (defun load-translated-corpus (filename hashtable)
    (fare-csv:with-rfc4180-csv-syntax ()
      (dolist (row (fare-csv:read-csv-file filename :external-format :utf-8))
        (let ((pt (trim (string-downcase (first row))))
  