anchor.diff:      (adolist (x a)
         (%%%href-set .! a !.))))
   
  +(defun %href-error (h)
  +  (error "HREF expects an hash table instead of ~A." h))
  +
   (defun href (h k)
  +  (| (is_a h "__array")
  +     (%href-error h))
     (alet (%%key k)
       (?  (| (is_a h "__l") 
              (is_a h "__array"))
  
positive.code:            (php-aref h !)))))
  
  (defun (= href) (v h k)
    (alet (%%key k)
      (?  (| (is_a h "__l") 
             (is_a h "__array"))
  
negative.code: ;;;;; tré – Copyright (c) 2009,2011–2014 Sven Michael Klose <pixel@copei.de>
  
  (dont-obfuscate is_a strpos substr)
  
  