Mercurial > emacs
comparison lispref/lists.texi @ 7734:2d4db32cccd5
entered into RCS
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 28 May 1994 14:52:37 +0000 |
| parents | cd57cd335fff |
| children | 206af14bcffa |
comparison
equal
deleted
inserted
replaced
| 7733:2e2f1c2aad26 | 7734:2d4db32cccd5 |
|---|---|
| 209 @result{} t | 209 @result{} t |
| 210 @end group | 210 @end group |
| 211 @end example | 211 @end example |
| 212 @end defun | 212 @end defun |
| 213 | 213 |
| 214 @need 1000 | 214 @need 2000 |
| 215 | 215 |
| 216 @node List Elements | 216 @node List Elements |
| 217 @section Accessing Elements of Lists | 217 @section Accessing Elements of Lists |
| 218 @cindex list elements | 218 @cindex list elements |
| 219 | 219 |
| 1382 @smallexample | 1382 @smallexample |
| 1383 @group | 1383 @group |
| 1384 (setq needles-per-cluster | 1384 (setq needles-per-cluster |
| 1385 '((2 . ("Austrian Pine" "Red Pine")) | 1385 '((2 . ("Austrian Pine" "Red Pine")) |
| 1386 (3 . ("Pitch Pine")) | 1386 (3 . ("Pitch Pine")) |
| 1387 @end group | |
| 1387 (5 . ("White Pine")))) | 1388 (5 . ("White Pine")))) |
| 1388 @result{} | 1389 @result{} |
| 1389 ((2 "Austrian Pine" "Red Pine") | 1390 ((2 "Austrian Pine" "Red Pine") |
| 1390 (3 "Pitch Pine") | 1391 (3 "Pitch Pine") |
| 1391 (5 "White Pine")) | 1392 (5 "White Pine")) |
| 1402 @result{} t | 1403 @result{} t |
| 1403 (eq (car needles-per-cluster) (car copy)) | 1404 (eq (car needles-per-cluster) (car copy)) |
| 1404 @result{} nil | 1405 @result{} nil |
| 1405 (cdr (car (cdr needles-per-cluster))) | 1406 (cdr (car (cdr needles-per-cluster))) |
| 1406 @result{} ("Pitch Pine") | 1407 @result{} ("Pitch Pine") |
| 1408 @group | |
| 1407 (eq (cdr (car (cdr needles-per-cluster))) | 1409 (eq (cdr (car (cdr needles-per-cluster))) |
| 1408 (cdr (car (cdr copy)))) | 1410 (cdr (car (cdr copy)))) |
| 1409 @result{} t | 1411 @result{} t |
| 1410 @end group | 1412 @end group |
| 1411 @end smallexample | 1413 @end smallexample |