Author: abaine Date: Mon Aug 27 21:04:23 2007 New Revision: 214
Modified: trunk/funds/src/dictionary.lisp Log: Fixed faulty dictionary-from-alist.
Modified: trunk/funds/src/dictionary.lisp ============================================================================== --- trunk/funds/src/dictionary.lisp (original) +++ trunk/funds/src/dictionary.lisp Mon Aug 27 21:04:23 2007 @@ -57,8 +57,8 @@ (f (bt-right tree)))))) (f (dict-tree d))))
-(defun dictionary-from-alist (alist) +(defun dictionary-from-alist (alist &key (test #'eql) (hash #'sxhash)) (reduce #'(lambda (d pair) (dictionary-add d (car pair) (cdr pair))) alist - :initial-value (make-dictionary))) \ No newline at end of file + :initial-value (make-dictionary :test test :hash hash))) \ No newline at end of file