Pairs and lists





`=̀13`(ndexfile(index-entry "pair?" "tt" main )pair?obj)
procedure
`=̀13`(ndexfile(index-entry "cons" "tt" main )consobj1 obj2)
procedure
`=̀13`(ndexfile(index-entry "car" "tt" main )carpair)
procedure
`=̀13`(ndexfile(index-entry "cdr" "tt" main )cdrpair)
procedure
`=̀13`(ndexfile(index-entry "set-car!" "tt" main )set-car!pair obj)
procedure
`=̀13`(ndexfile(index-entry "set-cdr!" "tt" main )set-cdr!pair obj)
procedure
0(cadr pair) 1procedure `=̀13`(ndexfile(index-entry "caar" "tt" main )caarpair)
procedure
`=̀13`(ndexfile(index-entry "cadr" "tt" main )cadrpair)
procedure
`=̀13`to 10 $\vdots$
to 11 $\vdots$
`=̀13`(ndexfile(index-entry "cdddar" "tt" main )cdddarpair)
procedure
`=̀13`(ndexfile(index-entry "cddddr" "tt" main )cddddrpair)
procedure
`=̀13`(ndexfile(index-entry "null?" "tt" main )null?obj)
procedure
`=̀13`(ndexfile(index-entry "list?" "tt" main )list?obj)
procedure
`=̀13`(ndexfile(index-entry "list" "tt" main )listobj … )
procedure
`=̀13`(ndexfile(index-entry "length" "tt" main )lengthlist)
procedure
`=̀13`(ndexfile(index-entry "append" "tt" main )appendlist … )
procedure
`=̀13`(ndexfile(index-entry "reverse" "tt" main )reverselist)
procedure
`=̀13`(ndexfile(index-entry "list-tail" "tt" main )list-taillist k)
procedure
`=̀13`(ndexfile(index-entry "list-ref" "tt" main )list-reflist k)
procedure
`=̀13`(ndexfile(index-entry "memq" "tt" main )memqobj list)
procedure
`=̀13`(ndexfile(index-entry "memv" "tt" main )memvobj list)
procedure
`=̀13`(ndexfile(index-entry "member" "tt" main )memberobj list)
procedure
`=̀13`(ndexfile(index-entry "assq" "tt" main )assqobj alist)
procedure
`=̀13`(ndexfile(index-entry "assv" "tt" main )assvobj alist)
procedure
`=̀13`(ndexfile(index-entry "assoc" "tt" main )assocobj alist)
procedure
Identical to R4RS.





`=̀13`(ndexfile(index-entry "list*" "tt" main )list*obj)
procedure
ndexfile(index-entry "list*" "tt" aux )list* is like ndexfile(index-entry "list" "tt" aux )list except that the last argument to ndexfile(index-entry "list*" "tt" aux )list* is used as the cdr of the last pair constructed. $\Longrightarrow$
$\Longrightarrow$ unspecified error makeotherˆ`=̀13`


          gobblecr(list* 1 2 3) (1 2 . 3)(list* 1 2 3 '(4 5)) (1 2 3 4 5)





`=̀13`(ndexfile(index-entry "copy-tree" "tt" main )copy-treeobj)
procedure
ndexfile(index-entry "Copy-tree" "tt" aux )Copy-tree recursively copies trees of pairs. If ndexfile(index-entry "obj" "tt" aux )obj is not a pair, it is returned; otherwise the result is a new pair whose car and cdr are obtained by calling ndexfile(index-entry "copy-tree" "tt" aux )copy-tree on the car and cdr of ndexfile(index-entry "obj" "tt" aux )obj, respectively.