+
+(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**)))))