9 lines
246 B
Common Lisp
9 lines
246 B
Common Lisp
(batch
|
|
(insert 6 (record (customer "Fay") (total 4200)))
|
|
(replace 1 (record (customer "Ada") (total 100))))
|
|
(batch
|
|
(replace 3 (record (customer "Lin") (total 50)))
|
|
(remove 5))
|
|
(batch
|
|
(replace 4 (record (customer "Dara") (total 2500))))
|