}
-DEFUN ("ccl-program-p", Fccl_program_p, Sccl_program_p, 1, 1, 0,
+DEFUE ("ccl-program-p", Fccl_program_p, Sccl_program_p, 1, 1, 0,
doc: /* Return t if OBJECT is a CCL program name or a compiled CCL program code.
See the documentation of `define-ccl-program' for the detail of CCL program. */)
(Lisp_Object object)