Commit 7ae0ad18 authored by Tobias C. Rittweiler's avatar Tobias C. Rittweiler
Browse files

alexandria-define-constant-testcase.diff

	* tests.lisp (define-constant.1): Adapted to latest changes;
	argument to :KEY is now evaluated.
parent 89b42862
......@@ -96,8 +96,8 @@
(deftest define-constant.1
(let ((name (gensym)))
(eval `(define-constant ,name "FOO" :test equal))
(eval `(define-constant ,name "FOO" :test equal))
(eval `(define-constant ,name "FOO" :test 'equal))
(eval `(define-constant ,name "FOO" :test 'equal))
(values (equal "FOO" (symbol-value name))
(constantp name)))
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