Commit c62d5324 authored by Robert Goldman's avatar Robert Goldman
Browse files

Anonymize package names in test.

parent 47dc6a10
Pipeline #5555 passed with stage
......@@ -641,9 +641,12 @@
(DBG "Test error-checking in DEFINE-PACKAGE")
(signals uiop:no-such-package-error
(uiop:define-package #:amb
(:use #:cl)
(:shadow #:require)
(:import-from #:foobar
#:with-gensyms #:shuffle #:when-let #:define-constant)
(:export #:amb #:amb-failure #:amb-failure-stack #:+empty-stack+)))
(let ((package-name (gentemp "IMPORTER"))
(import-package-name (gentemp "IMPORT-FROM")))
(eval
`(uiop:define-package ,package-name
(:use #:cl)
(:shadow #:require)
(:import-from ,import-package-name
#:with-gensyms #:shuffle #:when-let #:define-constant)
(:export #:amb #:amb-failure #:amb-failure-stack #:+empty-stack+)))))
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