comparison src/data.c @ 8798:e10362de8eba

(Fcdr_safe): Delete extraneous blank in docstring.
author Karl Heuer <kwzh@gnu.org>
date Fri, 16 Sep 1994 22:02:54 +0000
parents b6335ce87e16
children f68749766ed1
comparison
equal deleted inserted replaced
8797:847ef8253f30 8798:e10362de8eba
417 list = wrong_type_argument (Qlistp, list); 417 list = wrong_type_argument (Qlistp, list);
418 } 418 }
419 } 419 }
420 420
421 DEFUN ("cdr-safe", Fcdr_safe, Scdr_safe, 1, 1, 0, 421 DEFUN ("cdr-safe", Fcdr_safe, Scdr_safe, 1, 1, 0,
422 "Return the cdr of OBJECT if it is a cons cell, or else nil.") 422 "Return the cdr of OBJECT if it is a cons cell, or else nil.")
423 (object) 423 (object)
424 Lisp_Object object; 424 Lisp_Object object;
425 { 425 {
426 if (XTYPE (object) == Lisp_Cons) 426 if (XTYPE (object) == Lisp_Cons)
427 return XCONS (object)->cdr; 427 return XCONS (object)->cdr;