diff src/doc.c @ 39973:579177964efa

Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting with lisp system changes.
author Ken Raeburn <raeburn@raeburn.org>
date Tue, 16 Oct 2001 09:09:51 +0000
parents 0b986bb45526
children 0600331ddd52
line wrap: on
line diff
--- a/src/doc.c	Mon Oct 15 20:52:59 2001 +0000
+++ b/src/doc.c	Tue Oct 16 09:09:51 2001 +0000
@@ -445,7 +445,7 @@
 	{
 	  tem = Fcdr (Fcdr (fun));
 	  if (CONSP (tem) && INTEGERP (XCAR (tem)))
-	    XSETFASTINT (XCAR (tem), offset);
+	    XSETCARFASTINT (tem, offset);
 	}
       else if (EQ (tem, Qmacro))
 	store_function_docstring (XCDR (fun), offset);