((/centaur/esim/stv/stv-run.lisp::stv-print-alist (nil nil nil (b*) nil nil nil) (nil nil (recursive-call) nil nil (((when (atom x)) nil)) nil) (nil nil ((unless (consp (car x))) (cons key val) (unless (symbolp key)) - cdr) nil nil nil nil) ((x) nil (car) nil nil (er er cw) nil) ((hard? Malformed alist: Entry ~x0 is not a (key . val) pair.~% x hard? Malformed alist: name is not a symbolp.~%   ~s0:~t1~s2~% key) (20) (quote car quote car str::hexify) nil nil nil nil) ((recursive-call x recursive-call x val) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)))