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 [email protected]
==========================================================================
"The earth is but one country, and mankind its citizens." -- Baha'u'llah
_______________________________________________
Gcl-devel mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/gcl-devel
