mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-21 07:37:45 -04:00
9 lines
321 B
Common Lisp
9 lines
321 B
Common Lisp
(let ((my-pair (cons (cons 'a 'b) (cons 'c 'd))))
|
|
(set! (car (car my-pair)) 'e)
|
|
(set! (car (cdr my-pair)) 'f)
|
|
(set! (cdr (car my-pair)) 'g)
|
|
(set! (cdr (cdr my-pair)) 'h)
|
|
(format #t "~A~A~A~A~%" (car (car my-pair)) (car (cdr my-pair)) (cdr (car my-pair)) (cdr (cdr my-pair)))
|
|
(format #t "~A~%" my-pair)
|
|
)
|
|
0 |