Use equal as a test function in def constant by default.
Thu Sep 24 05:07:41 PDT 2009 levente.meszaros@gmail.com
* Use equal as a test function in def constant by default.
diff -rN -u old-cl-def/definers.lisp new-cl-def/definers.lisp
--- old-cl-def/definers.lisp 2014-07-13 07:03:05.000000000 -0700
+++ new-cl-def/definers.lisp 2014-07-13 07:03:05.000000000 -0700
@@ -144,9 +144,9 @@
under ~S.~:@>" name old new test)))))))
(def (definer e :available-flags "e") constant (name initial-value &optional documentation)
- "Use like: (def (constant e :test #'string=) alma \"korte\")"
+ "Use like: (def (constant e :test #'string=) alma \"korte\") test defaults to equal."
(check-type name symbol)
- (bind ((test (getf -options- :test ''eql)))
+ (bind ((test (getf -options- :test ''equal)))
(with-standard-definer-options name
`(eval-when (:compile-toplevel :load-toplevel :execute)
(defconstant ,name (%reevaluate-constant ',name ,initial-value :test ,test)