anchor.diff:  	)
   
   
  -; ======================================================================================== ;
  +
  +
  +; ======================================================================================= ;
   ;											/ APAGAR \
   ;
   ; RETORNO: logico, inteiro
  
positive.code: )
  
  
  ; ======================================================================================== ;
  ;											/ APAGAR \
  ;
  ; NOTA: tentar compreender como funcionam as funcoes sem retorno...
  ;
  ; Talvez nao seja para utilizar estas funcoes para ja.
  ; ======================================================================================== ;
  
  
  ; ADICIONA ATRIBUICAO
  
negative.code: 
  (defun psr-variavel-restricao (psr key)
      (defparameter *myhashtable* (make-hash-table :test 'equal))
      (let ((maxsz (list-length (PSR-listconstrains psr))) 
       			)
         
         (dotimes (i maxsz (PSR-listconstrains psr))
              (setf (gethash (nth i (PSR-listconstrains psr)) *myhashtable*)
  