mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
8 lines
303 B
Common Lisp
8 lines
303 B
Common Lisp
(defun transformed () (sb-kernel:get-lisp-obj-address -1))
|
|
(defun not-transformed ()
|
|
(declare (notinline sb-kernel:get-lisp-obj-address))
|
|
(sb-kernel:get-lisp-obj-address -1))
|
|
(compile 'transformed)
|
|
(with-test (:name transform-get-lisp-obj-addresss)
|
|
(assert (eql (transformed) (not-transformed))))
|