Brit Butler пре 12 година
родитељ
комит
ad2a05fa3a
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      src/themes.lisp

+ 1 - 1
src/themes.lisp

@@ -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."