[Maxima-commits] CVS: maxima/share/contrib/graphs graph_core.lisp, 1.15, 1.16
- Subject: [Maxima-commits] CVS: maxima/share/contrib/graphs graph_core.lisp, 1.15, 1.16
- From: Raymond Toy (RT/EUS)
- Date: Mon, 05 May 2008 16:48:11 -0400
Andrej Vodopivec wrote:
> Update of /cvsroot/maxima/maxima/share/contrib/graphs
> In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv13769
>
> Modified Files:
> graph_core.lisp
> Log Message:
> Use alike1 instead of equal in user defined hash tables.
>
>
> Index: graph_core.lisp
> ===================================================================
> RCS file: /cvsroot/maxima/maxima/share/contrib/graphs/graph_core.lisp,v
> retrieving revision 1.15
> retrieving revision 1.16
> diff -u -d -r1.15 -r1.16
> --- graph_core.lisp 25 Apr 2008 13:54:22 -0000 1.15
> +++ graph_core.lisp 5 May 2008 20:38:42 -0000 1.16
> @@ -2008,7 +2008,7 @@
> ;;;;;;
>
> (defun $hash_table ()
> - (make-hash-table :test #'equal))
> + (make-hash-table :test #'alike1))
You can't use an arbitrary test in a Common Lisp hash table. Some lisps
will allow you to define your own, but that's not portable.
Ray