Commit 7e44d6c9 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

In test-utilities, also test UIOP for fishiness

parent 03c93ffa
...@@ -269,6 +269,7 @@ ...@@ -269,6 +269,7 @@
;; types ;; types
asdf/bundle:user-system asdf/bundle:user-system
#+sbcl uiop/lisp-build:sb-grovel-unknown-constant-condition #+sbcl uiop/lisp-build:sb-grovel-unknown-constant-condition
uiop/image:fatal-condition
;; on some implementations only ;; on some implementations only
asdf/bundle:bundle-system asdf/bundle:bundle-system
asdf/bundle:static-library asdf/bundle:static-library
...@@ -300,12 +301,12 @@ ...@@ -300,12 +301,12 @@
:collect symbol)) :collect symbol))
(defun fishy-asdf-exported-symbols () (defun fishy-asdf-exported-symbols ()
(remove-duplicates (loop :for package :in (list-all-packages)
(loop :for package :in (list-all-packages) :when (and (or (string-prefix-p "ASDF/" (package-name package))
:when (and (string-prefix-p "ASDF/" (package-name package)) (string-prefix-p "UIOP/" (package-name package)))
(not (equal (package-name package) "ASDF/COMMON-LISP"))) (not (equal (package-name package) "UIOP/COMMON-LISP")))
:nconc (fishy-exported-symbols package)) :append (let ((fishy (fishy-exported-symbols package)))
:from-end t)) (when fishy (list (cons (package-name package) (mapcar 'symbol-name fishy)))))))
(assert-equal nil (fishy-asdf-exported-symbols)) (assert-equal nil (fishy-asdf-exported-symbols))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment