|
@@ -30,7 +30,7 @@ any return value other than nil indicates the injection should be added."
|
30
|
30
|
(defun theme-package (name)
|
31
|
31
|
"Find the package matching the theme NAME or signal THEME-DOES-NOT-EXIST."
|
32
|
32
|
(or (find-package (string-upcase (concatenate 'string "coleslaw.theme." name)))
|
33
|
|
- (error 'theme-does-not-exist-error :theme name)))
|
|
33
|
+ (error 'theme-does-not-exist :theme name)))
|
34
|
34
|
|
35
|
35
|
(defun theme-fn (name &optional (package (theme *config*)))
|
36
|
36
|
"Find the symbol NAME inside PACKAGE which defaults to the theme package."
|