[funds-cvs] r214 - trunk/funds/src

[abaine at common-lisp.net]

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