(setf S (if (lookup 'SIGNATURE M) ($it 0) ""))
(when (and (!= S "") (setf D (unpack-data S DATA AT)))
(setf AT (D 1))
(extend M (list (list "" (D 0)))))
(setf S (if (lookup 'SIGNATURE M) ($it 0) ""))
(when (and (!= S "") (setf D (unpack-data S DATA AT)))
(setf AT (D 1))
(extend M (list (list "" (D 0)))))