anchor.diff:  (defun print-rectangles (rectangle-hash-map)
     (let ((keys-array (keys-in-order rectangle-hash-map))
   	(hash-table (the-table rectangle-hash-map)))
  +    ;; TODO: use :across!
       (loop for keys-index below (length keys-array) do
   	 (format t "~&key:~a value:~a~%" (aref keys-array keys-index)
   		 (gethash (aref keys-array keys-index) hash-table)))))
  
positive.code: 
  
  (defun clr-seq-hash (seq-hash-table)
    (clrhash (the-table seq-hash-table))
    (setf (keys-in-order seq-hash-table) (make-array 0 :fill-pointer t)))
  
  
  ;; hash so we can querry (gethash :hero *dynamic-rectangles)
  
negative.code: 
  (defun rectangle-seq-hash->vector (rectangle-seq-hash)
    (apply 'concatenate 'vector
  	 (loop for keys-index below (keys-in-order rectangle-seq-hash)
  	    collect) (rectangle->verts rectangle)))
  
  ;(defun move (rectangle))
  
  