From b3a5ae0523a46a273945605d2c277a75069899f4 Mon Sep 17 00:00:00 2001
From: Artyom Bologov <aartaka@protonmail.com>
Date: Thu, 23 Nov 2023 17:07:10 +0400
Subject: [PATCH] tests/tests: Guard for nsymbols/star loading.

---
 tests/tests.lisp | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/tests/tests.lisp b/tests/tests.lisp
index aa3cd9d..48ecd4d 100644
--- a/tests/tests.lisp
+++ b/tests/tests.lisp
@@ -3,6 +3,9 @@
 
 (in-package #:nsymbols/tests)
 
+(defvar *nsymbols-star-loaded*
+  (fboundp (find-symbol "PACKAGE-FUNCTIONS*" :nsymbols)))
+
 (define-test cl-inspection ()
   (assert-eql 977 (length (nsymbols:package-symbols :cl :visibility :external)))
   (let ((structures (nsymbols:package-structures :cl :external)))
@@ -19,8 +22,11 @@
      ;; CLISP returns: (NSYMBOLS::DESIGNATOR NSYMBOLS::RESULTS
      ;; NSYMBOLS::|(SETF NSYMBOLS:RESULTS)| NSYMBOLS::|(SETF
      ;; NSYMBOLS:DESIGNATOR)|)
-     #+clisp 4
-     #-clisp 2
+     (if *nsymbols-star-loaded*
+         #+clisp 10
+         #-clisp 8
+         #+clisp 4
+         #-clisp 2)
      (length functions))
     (assert-true (member 'nsymbols::designator functions)))
   (let ((macros (nsymbols:package-macros :nsymbols)))