# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 796342611 0
# Node ID 206af14bcffa7ba7520615c11dcf01f76e9e04f2
# Parent  043aedff871073e6f0aedddd6bf636957b3c35e3
Fix setcdr example.

diff -r 043aedff8710 -r 206af14bcffa lispref/lists.texi
--- a/lispref/lists.texi	Mon Mar 27 21:17:25 1995 +0000
+++ b/lispref/lists.texi	Mon Mar 27 22:16:51 1995 +0000
@@ -1417,8 +1417,7 @@
 
 @smallexample
 @group
-(setcdr (assq 3 needles-per-cluster)
-        '("Martian Vacuum Pine"))
+(setcdr (assq 3 copy) '("Martian Vacuum Pine"))
 (cdr (assq 3 needles-per-cluster))
      @result{} ("Pitch Pine")
 @end group