
This patch is also found in the file patch1.text in the /pcl/beta
directory.


;from slots.lisp
(defmethod slot-exists-p-using-class
	   ((class std-class) (object standard-object) slot-name)
  (not (null (find-slot-definition class slot-name))))
