anchor.diff:  ; structures and return NIL.
   
   (defun cria-psr (varsl domainsl constrainsl)
  -	(let ((maxsz (list-length varsl)) 
  +	(let ((maxsz (list-length varsl))
  +			(maxsz2 (list-length constrainsl))
   				(valuesl NIL)
   				(x NIL)
  +				(answ3 NIL)
   				)
   			(dotimes (i maxsz varsl)
   				(progn
   					(setf (gethash (nth i varsl) myhashtable) NIL)
   					(setf (gethash (nth i varsl) hashtablevals) i)
  +					(setf (gethash (nth i varsl) hashtabledoms) i)
  +					(setf (gethash (nth i varsl) hashtableconstr) NIL)
   				)
   			)
   						
  
positive.code: ; ======================================================================================= ;
  
  
  ; TRANSFORMA FILL-A-PIX EM PSR
  
  ; Receives a corresponding array to a two-dimensional table mxn of a puzzle
  ; Fill-a-Pix unresolved and returns a PSR representing the problem to solve
  
negative.code: 			(array-dimension arr 1)
  		)
  	)
  )
  