smart-slot-value fails

[jcguu95]

In generic-test.lisp, smart-slot-value fails in that it doesn't disregard the package of the slot name.

  (should be true (smart-slot-value (rtl::make-foo :bar t) 'bar))

The error message:

When attempting to read the slot's value (slot-value), the slot BAR is missing from the object #S(RTL::FOO :BAR T). It has a slot RTL::BAR, while RUTILS.TEST::BAR is requested.