; Return the first pair in a struct with the given field-name,
; or nil if there is no such struct.
;
(defun getfield (field-name struct)
  (cond
    ( (eq struct nil)  nil )
    ( (eq field-name (caar struct)) (car struct) )
    ( t (getfield field-name (cdr struct)) )
   )
)