Fix contrib building on mingw.

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

diff --git a/tests/defglobal.impure.lisp b/tests/defglobal.impure.lisp
index 68a74e2..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))
@@ -194,3 +194,11 @@
       (ignore-errors (delete-file fasl)))
     (assert (= 1 *counter*))
     (assert (= 1 (symbol-value '.counter-3.)))))
+
+(with-test (:name :defglobal-refers-to-defglobal)
+  (let ((fasl (compile-form `(progn
+                               (defglobal **global-1** :fii)
+                               (defglobal **global-2** **global-1**)))))
+    (load fasl)
+    (assert (eq (symbol-value '**global-1**) (symbol-value '**global-2**)))
+    (assert (eq :fii (symbol-value '**global-1**)))))