diff --git a/.github/workflows/tests.yml b/.github/workflows/tests.yml index b876301..5f6b303 100644 --- a/.github/workflows/tests.yml +++ b/.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)))' diff --git a/nsymbols.lisp b/nsymbols.lisp index 9d1af6e..037556c 100644 --- a/nsymbols.lisp +++ b/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 () diff --git a/tests/tests.lisp b/tests/tests.lisp index aa3cd9d..8b9ccf1 100644 --- a/tests/tests.lisp +++ b/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)