On Sun, Jun 10, 2018 at 02:13:10PM +0200, Arie van Wingerden wrote:
> Please give a complete example!
I would do it this way:
(setq Employees '(emp1 emp2 emp3 emp4 emp5))
(mapc put
Employees
'(name .)
'("Abel" "Jones" "Millner" "Noles" "Zaphod") )
(mapc put
Employees
'(category .)
'(engineer cook teacher engineer vicar) )
(mapc show Employees)
(with
(find
'((This) (== 'engineer (: category)))
Employees )
(prinl "Highest paid engineer is: " (: name)) )
Output:
emp1 NIL
category engineer
name "Abel"
emp2 NIL
category cook
name "Jones"
emp3 NIL
category teacher
name "Millner"
emp4 NIL
category engineer
name "Noles"
emp5 NIL
category vicar
name "Zaphod"
Highest paid engineer is: Abel
♪♫ Alex
--
UNSUBSCRIBE: mailto:[email protected]?subject=Unsubscribe
