beowulf/resources/mexpr/append.mexpr.lsp

4 lines
80 B
Common Lisp

;; page 61
append[x; y] = [null[x] -> y; T -> cons[car[x]; append[cdr[x]; y]]]