anchor.diff:  			       (format stream " ~a ~a" k v))) h)
     (format stream ">"))
   
  -;; Macro to define state arithmethic on a custom class
  +;;; Macro to define state arithmethic on a custom class
   (defmacro defstatearithmetic (class slots &key (initargs (mapcar #'make-keyword slots)))
     "Defines state arithmetic for specified class and slots.
   Assumes state arithmetic already defined for slot types, including NORMINFX.
  
positive.code:   (loop for v being the hash-values in x
       maximize (norminfx v)))
  
  ;; Define PRINT-OBJECT method for hash tables
  (defmethod print-object ((h hash-table) stream)
    (format stream "#<HASH-TABLE")
    (maphash #'(lambda (k v) (if (keywordp k) 
  
negative.code: (defmethod norminfx ((x vector))
    (reduce #'max (map 'vector #'norminfx x)))
  
  ;;; Hash table state arithmetic
  
  (defmeth2 + ((a hash-table) (b hash-table))
    (let ((result (make-hash-table)))
  