Code: Select all
newLISP v.9.9.95 on OSX IPv4 UTF-8, execute 'newlisp -h' for more info.
> (define Doyle:Doyle)
nil
> (Doyle "baker" 221)
221
> (Doyle "street" 26)
26
>
> (Doyle)
(("baker" 221) ("street" 26))
>
> (pop-assoc "baker" (Doyle))
("baker" 221)
> (Doyle)
(("baker" 221) ("street" 26))
Code: Select all
> (find-all '(? 26) (Doyle) (println $0))
("street" 26)