Lucid bug and fix for Prime CL version 1.0

[primerd!zaphod!doug@EDDIE.MIT.EDU (Douglas Rand)]

Timothy's fix will work fine in Prime CL 1.0 but you must also do the
additional fix in slots.lisp:

In method initialize-from-init-plist:

(flet ((find-slotd (keyword)
--to--
(flet ((find-slotd-x (keyword)

((null (setq slotd (find-slotd (car keyword-loc))))
--to--
((null (setq slotd (find-slotd-x (car keyword-loc))))

The apparent problem is that the compiler is confusing the flet definition
with the earlier macro definition.  Is it really reasonable to have both
a macro and a function with the same name?

Doug