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-verbnet ()
    (setf *verbnet* (make-hash-table :test #'equal :size 15000))
    (load-translated-corpus  (merge-pathnames "corpora/verbnet.br.csv" *basedir*) *verbnet*))
  
  (defun load-synset-candidates ()
    (setf *synset-candidates* (make-hash-table :test #'equal :size 100))
    (load-translated-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))
  