get-slot-value on openmcl

the current implementation of get-slot-value for openmcl loses symbol
name case, i'd suggest this:

(defmacro get-slot-value (obj type slot)
  ...
  #+mcl
  `(ccl:pref ,obj ,(intern (concatenate 'string (symbol-name type) "." (symbol-name slot)) :keyword))
  )

-- 
-Marco
Ring the bells that still can ring.
Forget your perfect offering.
There is a crack in everything.
That's how the light gets in.
     -Leonard Cohen