XPost: comp.lang.lisp
Populating a hash table using a property list. A property list
has a form like '(one "ONE" two "TWO" ....).
(defun populate-hash-table (table property-list)
(loop for (key value) on property-list by #'cddr
do (setf (gethash key table) value)))
Gauche Scheme
(define (prop-list->alist plist)
(do ((al '()))
((null? plist) al)
(push! al (cons (pop! plist) (pop! plist)))))
(prop-list->alist '(foo 33 bar 42 k 99))
===>
((k . 99) (bar . 42) (foo . 33))
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)