Commit f5011697 authored by pfdietz's avatar pfdietz
Browse files

Moved a defconstant to ansi-aux.lsp from packages-10.lsp to avoid compiler warnings.

parent 8ea11d00
...@@ -991,6 +991,8 @@ the condition to go uncaught if it cannot be classified." ...@@ -991,6 +991,8 @@ the condition to go uncaught if it cannot be classified."
(unuse-package package using-package))) (unuse-package package using-package)))
(delete-package package)))) (delete-package package))))
(defconstant +fail-count-limit+ 20)
(defmacro test-with-package-iterator (package-list-expr &rest symbol-types) (defmacro test-with-package-iterator (package-list-expr &rest symbol-types)
"Build an expression that tests the with-package-iterator form." "Build an expression that tests the with-package-iterator form."
(let ((name (gensym)) (let ((name (gensym))
......
...@@ -9,8 +9,6 @@ ...@@ -9,8 +9,6 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; with-package-iterator ;;; with-package-iterator
(defconstant +fail-count-limit+ 20)
(deftest with-package-iterator-1 (deftest with-package-iterator-1
(with-package-iterator-internal (list (find-package "COMMON-LISP-USER"))) (with-package-iterator-internal (list (find-package "COMMON-LISP-USER")))
t) t)
......
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