Blame

Date:
Message:
Import sources
Actions:
History | Blob | Raw File
 1 665c255d 2023-08-04 jrmu (defun lookup (given-key set)

 2 665c255d 2023-08-04 jrmu   (if (null? set)

 3 665c255d 2023-08-04 jrmu       nil

 4 665c255d 2023-08-04 jrmu       (let* ((cur-entry (entry set))

 5 665c255d 2023-08-04 jrmu 	     (cur-key (key cur-entry)))

 6 665c255d 2023-08-04 jrmu 	(cond ((= cur-key given-key) cur-entry)

 7 665c255d 2023-08-04 jrmu 	      ((< given-key cur-key)

 8 665c255d 2023-08-04 jrmu 	       (lookup given-key (left-branch set)))

 9 665c255d 2023-08-04 jrmu 	      ((> given-key cur-key)

10 665c255d 2023-08-04 jrmu 	       (lookup

11 665c255d 2023-08-04 jrmu 		given-key

12 665c255d 2023-08-04 jrmu 		(right-branch set)))))))