Skip to content
Snippets Groups Projects
Commit a4d87829 authored by levente.meszaros's avatar levente.meszaros
Browse files

Use defun in defresources to notify the compiler about the defined resource functions.

darcs-hash:92630f61d53e62ebfefc02bcae343d9423a44006
parent 893a6bb0
No related branches found
No related tags found
No related merge requests found
......@@ -90,7 +90,11 @@ and call the lambda resource registered for the current locale."
,@(iter (for resource in resources)
(for name = (first resource))
(unless (= 2 (length resource))
(collect `(set-resource-lookup-function ',name)))))
(collect `(progn
(unless (get ',name 'cl-l10n-entry-function)
(defun ,name (&rest args)
(lookup-resource ',name args))
(setf (get ',name 'cl-l10n-entry-function) t)))))))
(eval-when (:load-toplevel :execute)
,@(iter (for resource in resources)
(for name = (first resource))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment