anchor.diff:  (defparameter *nomlex-floating* nil)
   (defparameter *nomlex-floating-translated* nil)
   
  -(defun load-complex-corpus (filename hashtable)
  +(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))))
  
positive.code: 
  (defun load-nomlex-floating-translated ()
    (setf *nomlex-floating-translated* (make-hash-table :test #'equal :size 15000))
    (load-complex-corpus (merge-pathnames "corpora/verbos-nomlex-floating.csv" *basedir*) *nomlex-floating-translated*))
  
  (defun get-similar-words (word)
    (append (remove-if-not (lambda (x)
  
negative.code: 
  (defun load-verbocean ()
    (setf *verbocean* (make-hash-table :test #'equal :size 15000))
    (load-translated-corpus (merge-pathnames "corpora/verbocean-translated.csv" *basedir*) *verbocean*))
  
  (defun load-swadesh ()
    (setf *swadesh* (make-hash-table :test #'equal :size 320))
    (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-translated-corpus (merge-pathnames "corpora/verbos-DHBB.csv" *basedir*) *dhbb*))
  
  (defun load-compex ()
    (setf *compex* (make-hash-table :test #'equal :size 500))
    (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))
  