Thou shalt not MAKE-OTHER-IMMEDIATE-TYPE.

[sbcl.git] / tests / defglobal.impure.lisp

diff --git a/tests/defglobal.impure.lisp b/tests/defglobal.impure.lisp
index 5b5e634..ce1fd2e 100644 (file)
--- a/tests/defglobal.impure.lisp
+++ b/tests/defglobal.impure.lisp
@@ -18,7 +18,7 @@
     (eval form)))
 
 (defun unbound-marker ()
-  (sb-c::%primitive sb-c:make-other-immediate-type 0 sb-vm:unbound-marker-widetag))
+  (sb-c::%primitive sb-c:make-unbound-marker))
 
 (defun assert-foo-not-checked (fun)
   (let* ((marker (unbound-marker))