X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fdefglobal.impure.lisp;h=ce1fd2e8a03bf908a68824e751cd92f61d1cfc78;hb=HEAD;hp=5b5e634696d8edc5bb7ce2cd557d80a93adc3fc5;hpb=ead23f685bb8630c080761e0120258366b90f6a0;p=sbcl.git

diff --git a/tests/defglobal.impure.lisp b/tests/defglobal.impure.lisp
index 5b5e634..ce1fd2e 100644
--- 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))