6 lines
123 B
Common Lisp
6 lines
123 B
Common Lisp
|
(defun show-allocation ()
|
||
|
|
(let ((a (cons 1 2))
|
||
|
|
(b (cons 1 2)))
|
||
|
|
(declare (dynamic-extent b))
|
||
|
|
(list a b)))
|