Commit c0802d45 authored by Michael's avatar Michael

Syncing from Monotone at 20140303085108

parent 29e49132
......@@ -306,8 +306,8 @@ Functions get called with two parameters: match and list of registers.")
"Interns a given STRING uppercased in the keyword package."
(nth-value 0 (intern
(if *case-sensitivity*
(symbol-name (read-from-string string))
(string-upcase (read-from-string string))) :keyword)))
string
(string-upcase string)) :keyword)))
(defgeneric getf* (thing key &optional default)
(:documentation "Returns a value by a key"))
......
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