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