Tests failing on Allegro 11 beta

[rpgoldman]

Trying asdf:test-system on graph, I got these errors:

1. ADD-DUPLICATE-EDGE-TO-SMALL-GRAPH

Error: Test assertion failed:

Expression (MEMBER '(BAR FOO) (EDGES *GRAPH*)
             TEST #'TREE-EQUAL) evaluated to true
0: '(BAR FOO) => (:BAR :FOO)
1: (EDGES *GRAPH*) => ((:FOO :BAR) (:BAR :BAZ) (:FOO :BAZ) (:BAR :FOO))
3: #'TREE-EQUAL => #<Function TREE-EQUAL>
  [condition type: ASSERTION-FAILED]

2. CLOSED-GROUPS-IN-LESS-SMALL-GRAPH

Error: Test assertion failed:

Binary predicate (EVERY X Y) failed.
x: (THE (VALUES FUNCTION &OPTIONAL)
        (CURRY #'CLOSEDP *GRAPH*)) => #<Closure (:INTERNAL CURRY 0)
                                        @
                                        #x30791da52>
y: (CONNECTED-GROUPS-OF-SIZE *GRAPH* 3) => ((:BAR :BAZ :FOO)
                                            (:ZAP :ZAF :QUX))
  [condition type: ASSERTION-FAILED]

3. CLUSTERING-COEFFICIENT-OF-LESS-SMALL-GRAPH

Error: Test assertion failed:

Binary predicate (= X Y) failed.
x: 1 => 1
y: (CLUSTERING-COEFFICIENT *GRAPH*) => 0
  [condition type: ASSERTION-FAILED]

This was after I added an implementation of copy-hash for Allegro (I will submit a PR).

I'll look into these myself as time permits, but I wanted to report them for now.