bug#16520: 24.3.50; cl-defstruct with :predicate option

[Helmut Eller]

On Thu, Jan 23 2014, Stefan Monnier wrote:

> Version: 24.4
>
>>   (cl-defstruct (foo (:predicate foop)))
>>   (defun bar (x) (cl-check-type x foo))
> [...]
>>   foo.el:8:1:Warning: the function `foo-p' is not known to be defined.
>
> Thanks, should be fixed now (more or less: it's an ugly hack).

The fix doesn't work for this example:

 (require 'cl-lib)
 (cl-defstruct (foo (:predicate foo?)))
 (defun bar (x) (cl-check-type x foo))

neither for

  (cl-defstruct (foo (:predicate nil)))

Helmut