test test failure.

.github/workflows/tests.yml

@@ -32,9 +32,9 @@ jobs:
     # - name: Load the system
     #   shell: bash
     #   run: |
-    #     ros -e '(push (uiop:getcwd) ql:*local-project-directories*)' -e '(handler-case (ql:quickload :nsymbols) (error (a) (format t "caught error ~s~%~a~%" a a) (uiop:quit 17)))'
+    # ros -e '(push (uiop:getcwd) ql:*local-project-directories*)' -e '(handler-case (ql:quickload :nsymbols) (error (a) (format t "caught error ~s~%~a~%" a a) (uiop:quit 17)))'
 
     - name: Run tests
-      run: |
+      run: >-
         ros -e '(ql:quickload :lisp-unit2)' \
             -e '(handler-case (asdf:test-system :nsymbols) (error (c) (uiop:quit 1)))'

nsymbols.lisp

@@ -14,7 +14,7 @@
              (dolist (result (results condition))
                (terpri stream)
                (prin1 result stream))))
-  (:documentation "Raised when `resolve-symbol' finds multiple symbols with `error-p' set to T.")
+  (:documentation "Raised when `resolve-symbol' finds multiple symbols with `error-p' set to T."))
 (export 'multiple-resolved-symbols-error)
 
 (deftype symbol-visibility ()

tests/tests.lisp

@@ -34,7 +34,7 @@
   (assert-eql 0 (length (nsymbols:package-structures :nsymbols)))
   (assert-eql 3 (length (nsymbols:package-variables :nsymbols)))
   (assert-eql 2 (length (nsymbols:package-variables :nsymbols :external)))
-  (assert-eql 1 (length (nsymbols:package-variables :nsymbols :internal))))
+  (assert-eql 10 (length (nsymbols:package-variables :nsymbols :internal))))
 
 (defun hello ()
   nil)