`smart-slot-value` fails

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.