Commit c89f7079 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Play nicer with "modern syntax".

parent 66606e48
......@@ -18,7 +18,7 @@ Unless EARLYP is true, return NIL if the symbol is not fbound."
(block nil
(flet ((try (x)
(multiple-value-bind (sym foundp)
(find-symbol* (string-upcase x) :asdf-tools nil)
(find-standard-case-symbol x :asdf-tools nil)
(when (and sym (or earlyp (and foundp (fboundp sym))))
(return sym)))))
(try (strcat "%" (string name))) ;; so that you may use load, t, etc., as targets
......
......@@ -41,7 +41,7 @@
(defun ensure-keyword (x)
(etypecase x
((or null keyword) x)
((or string symbol) (intern (string-upcase x) :keyword))))
((or string symbol) (intern (standard-case-symbol-name x) :keyword))))
(defun ensure-list-of-keywords (x)
(mapcar 'ensure-keyword (ensure-list-of-strings x)))
......
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