anchor.diff:  (in-package :game-objects)
   
   
  -;;Sequential HASH-TABLe---------------------------------------------------------
  +;;Sequential HASH-TABLE---------------------------------------------------------
   
   ;; why can't (class-of <hash-table>) be the superclass?
   ;; This provides a hash-table where the order of the keys is specified. This is needed
  
positive.code: 	(setf x1 (vec3+ center-point (vec3 (- rx) (- ry) 0.0)))
  	(setf x2 (vec3+ center-point (vec3 rx (- ry) 0.0)))
  	(setf y1 (vec3+ center-point (vec3 (- rx) ry 0.0)))
  	(setf y2 (vec3+ center-point (vec3 rx ry 0.0))))
  
        )))
  
  ;;;Animation
  
  
negative.code:   (do-seq-hash (key value rectangle-hash-map)
      (format t "~&key:~a value:~a~%" key value)))
  
  (defun new-print-rectangles (rectangle-hash-map)
    (do-seq-hash (rectangle key rectangle-hash-map)
      (format t "~&key:~a value:~a~%" key rectangle)))
  
  (defun add-rectangle-as (name rectangle &key (as :dynamic) to)
    (let* ((seq-hash-table
  	  (if to
  	      to
  	      (ecase as
  		(:dynamic *dynamic-rectangles*)
  		(:static *static-rectangles*))))
  	 (rectangles-container (the-table seq-hash-table)))
      (multiple-value-bind (value set?) (gethash name rectangles-container)
        (declare (ignore value))
  