anchor.diff:       (eq (href h k) 'x)))
     t)
   
  +(define-test "HREF hashtable key missing"
  +  ((with (h (make-hash-table :test #'eq)
  +          k (make-hash-table))
  +     (= (href h k) 'x)
  +     (href h t)))
  +  nil)
  +
   (define-test "HREF array key"
     ((with (h (make-hash-table :test #'eq)
             k (make-array 10))
        (= (href h k) 'x)
        (eq (href h k) 'x)))
     t)
  +
  +(define-test "HREF array key missing"
  +  ((with (h (make-hash-table :test #'eq)
  +          k (make-array 10))
  +     (= (href h k) 'x)
  +     (href h t)))
  +  nil)
  
positive.code:      (eq (href h 'a) 'x)))
    t)
  
  (define-test "HREF number key"
    ((let h (make-hash-table :test #'eql)
       (= (href h 1) 'x)
       (eq (href h 1) 'x)))
    t)
  
  (define-test "HREF string key"
    ((let h (make-hash-table :test #'string==)
       (= (href h "str") 'x)
       (eq (href h "str") 'x)))
    t)
  
  (define-test "HREF empty string key"
    ((let h (make-hash-table :test #'string==)
  
negative.code:      (eq (href h #\a) 'x)))
    t)
  
  (define-test "HREF character key missing"
    ((let h (make-hash-table :test #'eql)
       (= (href h #\a) 'x)
       (href h #\b)))
    nil)
  
  (define-test "HREF hashtable key"
    ((with (h (make-hash-table :test #'eq)
            k (make-hash-table))
  