Format-graph-from-roots, merge problem

• To: clim@BBN.COM
• Subject: Format-graph-from-roots, merge problem
• From: lauren h halverson <blau@sol.crd.ge.com>
• Date: Thu, 25 Jun 92 12:26:31 EDT
• Reply-To: blau@crd.ge.com

Hi all,
I am running lucid CLIM1.1 on a SPARCstation 2. I am trying to create
a graph using FORMAT-GRAPH-FROM-ROOTS and have run into two (likely
related) problems.

First I try to use a merge-duplicates test of my own:

 (format-graph-from-roots 
     roots obj-printer inferior-producer 
     :merge-duplicates t
     :duplicate-test #'my-duplicate-test)

I get the following error:

>>Error: The :TEST argument, #<Standard-Generic-Function MY-DUPLICATE-TEST (2)>, to MAKE-HASH-TABLE isn't legal.
         It should be either EQ, EQL, EQUAL, or EQUALP 

MAKE-HASH-TABLE:
   Keyword arg 0 (TEST): #<Compiled-Function STRING-EQUAL 692726>
   Keyword arg 1 (SIZE): 67
   Keyword arg 2 (REHASH-SIZE): NIL
   Keyword arg 3 (REHASH-THRESHOLD): NIL
   Keyword arg 4 (USE-CACHE): NIL
:C  0: Supply a new :test
    1: Retry displaying pane #<CLIM::CLX-WINDOW /x 0:800 y 37:599/ 2C5522E>
    2: Skip redisplaying pane #<CLIM::CLX-WINDOW /x 0:800 y 37:599/ 2C5522E>
    3: Simple Frame top level
    4: Exit Simple Frame
:A  5: Abort to Lisp Top Level

-> :A

SO instead I decided to use a duplicate-key and the dupicate-test
#'equalp

(format-graph-from-roots 
     roots obj-printer inferior-producer 
     :merge-duplicates t
     :duplicate-key #'my-duplicate-key
     :duplicate-test #'equalp)

Now  I don't get an  error when I run, but the duplicates aren't merged. The
duplicate key function is being called, but the test isn't.

Any ideas ?

Thanks,
Lauren
blau@crd.ge.com

• Format-graph-from-roots, merge problem
• From: Scott McKay <SWM@stony-brook.scrc.symbolics.com>

• Prev: How to manually poll for events
• Next: Format-graph-from-roots, merge problem
• Index: CLIM Mailing list (1-Jan-92 to 31-Aug-92)
• Thread: CLIM Mailing list Index (1-Jan-92 to 31-Aug-92)