marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix thinko.

Browse source
This commit is contained in:
Brit Butler 2013-04-18 14:43:24 -04:00
parent eb1c5d8f83
commit ad2a05fa3a
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/themes.lisp
View file

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