pages-that-embed-test expect "Pigment" to not be embedded, but apparently.

[Yehouda]

The test pages-that-embed-test expectes cl-mediawiki:pages-that-embed to return nil when called with "Pigment", but it returns ("49598"). Here is the call with NET.ACCELERATION.CL-MEDIAWIKI::FIND-NODES-BY-NAME being traced:

CL-USER 75 > (NET.ACCELERATION.CL-MEDIAWIKI:WITH-MEDIAWIKI ("http://en.wikipedia.org/w")
               (NET.ACCELERATION.CL-MEDIAWIKI:PAGES-THAT-EMBED "Pigment"))
0 NET.ACCELERATION.CL-MEDIAWIKI::FIND-NODES-BY-NAME > ...
  >> NET.ACCELERATION.CL-MEDIAWIKI::NAME : "ei"
  >> NET.ACCELERATION.CL-MEDIAWIKI::TREE : ("api" (("batchcomplete" "")) ("query" NIL ("embeddedin" NIL ("ei" (# # #)))))
0 NET.ACCELERATION.CL-MEDIAWIKI::FIND-NODES-BY-NAME < ...
  << VALUE-0 : (("ei" (("pageid" "49598") ("ns" "0") ("title" "Pigment"))))
0 NET.ACCELERATION.CL-MEDIAWIKI::FIND-NODES-BY-NAME > ...
  >> NET.ACCELERATION.CL-MEDIAWIKI::NAME : "query-continue"
  >> NET.ACCELERATION.CL-MEDIAWIKI::TREE : ("api" (("batchcomplete" "")) ("query" NIL ("embeddedin" NIL ("ei" (# # #)))))
0 NET.ACCELERATION.CL-MEDIAWIKI::FIND-NODES-BY-NAME < ...
  << VALUE-0 : NIL
0 NET.ACCELERATION.CL-MEDIAWIKI::FIND-NODES-BY-NAME > ...
  >> NET.ACCELERATION.CL-MEDIAWIKI::NAME : "embeddedin"
  >> NET.ACCELERATION.CL-MEDIAWIKI::TREE : NIL
0 NET.ACCELERATION.CL-MEDIAWIKI::FIND-NODES-BY-NAME < ...
  << VALUE-0 : NIL
("49598")