anchor.diff:      x))
   
   (defun %%unkey-get-package-boundary (x)
  -  (awhen (position "~" x :test #'string==)
  +  (awhen (strpos "~" x)
       (& (%%%== "%" (substr x (+ 1 !) 1))
          (%%%== "P" (substr x (+ 2 !) 1))
          (| (%%unkey-get-package-boundary (string-subseq ! 3))
  
positive.code: ;;;;; tré – Copyright (c) 2009,2011–2013 Sven Michael Klose <pixel@copei.de>
  
  (dont-obfuscate is_a *conses* *arrays*)
  
  (defun hash-table? (x)
    (is_a x "__array"))
  
negative.code: 
  (defun alist-phphash (x)
    (let a (%%%make-hash-table)
      (adolist (x a)
        (%%%href-set .! a !.))))
  
  (defun href (h k)
    (alet (%%key k)
  