Greetings! Correction, that should have read:
(defun getl (sym key)
(cond ((consp sym) ;safe
(cdar (member-if (lambda (x) (when (consp x) (eq key (car x)))) sym)))
((symbolp sym) (get sym key))))
Take care,
--
Camm Maguire c...@maguirefamily.org
==========================================================================
"The earth is but one country, and mankind its citizens." -- Baha'u'llah
_______________________________________________
Axiom-developer mailing list
Axiom-developer@nongnu.org
https://lists.nongnu.org/mailman/listinfo/axiom-developer
