Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
asdf
Commits
7e44d6c9
Commit
7e44d6c9
authored
Feb 04, 2017
by
Francois-Rene Rideau
Browse files
In test-utilities, also test UIOP for fishiness
parent
03c93ffa
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/test-utilities.script
View file @
7e44d6c9
...
...
@@ -269,6 +269,7 @@
;; types
asdf/bundle:user-system
#+sbcl uiop/lisp-build:sb-grovel-unknown-constant-condition
uiop/image:fatal-condition
;; on some implementations only
asdf/bundle:bundle-system
asdf/bundle:static-library
...
...
@@ -300,12 +301,12 @@
:collect symbol))
(defun fishy-asdf-exported-symbols ()
(
remove-duplicat
es
(loop :for package :in (list-all-
package
s
)
:when (and
(string-prefix-p "
ASDF
/" (package-name package))
(not (equal (package-name package) "
ASDF
/COMMON-LISP")))
:nconc
(fishy-exported-symbols package))
:from-end t
))
(
loop :for package :in (list-all-packag
es
)
:when (and (or (string-prefix-p "ASDF/" (package-name
package
)
)
(string-prefix-p "
UIOP
/" (package-name package))
)
(not (equal (package-name package) "
UIOP
/COMMON-LISP")))
:append (let ((fishy
(fishy-exported-symbols package))
)
(when fishy (list (cons (package-name package) (mapcar 'symbol-name fishy)))))
))
(assert-equal nil (fishy-asdf-exported-symbols))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment