X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fcl-macs.el;h=6eddb949eac5ca4006cd5b779bf64fae29037bbf;hb=1d9bc86590766427e2431876a50d78206a99edd5;hp=3299793a9df1f4050d22f629ff6d68f93c88a772;hpb=d8bd7eee3147c839d3c74d1823c139cd54867a75;p=chise%2Fxemacs-chise.git

diff --git a/lisp/cl-macs.el b/lisp/cl-macs.el
index 3299793..6eddb94 100644
--- a/lisp/cl-macs.el
+++ b/lisp/cl-macs.el
@@ -2434,10 +2434,10 @@ The type name can then be used in `typecase', `check-type', etc."
 	  (t (error "Bad type spec: %s" type)))))
 
 ;;;###autoload
-(defun typep (val type)   ; See compiler macro below.
+(defun typep (object type)   ; See compiler macro below.
   "Check that OBJECT is of type TYPE.
 TYPE is a Common Lisp-style type specifier."
-  (eval (cl-make-type-test 'val type)))
+  (eval (cl-make-type-test 'object type)))
 
 ;;;###autoload
 (defmacro check-type (form type &optional string)