tests/tests: Guard for nsymbols/star loading.

atlas-engineer · Nov 23, 2023 · b3a5ae0 · b3a5ae0
1 parent ae85a12
commit b3a5ae0
Showing 1 changed file with 8 additions and 2 deletions.
diff --git 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)))