mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
2fe8c7d13f
* Don't call tn-value on a load-time-value TN * Kill comment implying [RIP-n] addressing mode can reach fixedobj space from immobile code using a rel32 operand.
14 lines
440 B
Common Lisp
14 lines
440 B
Common Lisp
;;; the test is mostly whether this file can be compiled or not
|
|
(defun b () (boundp (load-time-value (intern "DERP"))))
|
|
(defun v () (symbol-value (load-time-value (intern "DERP"))))
|
|
|
|
(test-util:with-test (:name :boundp-l-t-v-constant)
|
|
(assert (not (b)))
|
|
(progv '(derp) '(yes)
|
|
(assert (b))
|
|
(assert (eq (v) 'yes)))
|
|
(progv '(derp) '() (assert (not (b))))
|
|
(setf (symbol-value 'derp) 'ok)
|
|
(assert (b))
|
|
(assert (eq (v) 'ok)))
|