|
@@ -53,7 +53,11 @@
|
53
|
53
|
(plugin-package (sym)
|
54
|
54
|
(format nil "~:@(coleslaw-~A~)" sym)))
|
55
|
55
|
(let ((file (plugin-path name)))
|
56
|
|
- (load (compile-file file :verbose nil :print nil) :verbose t))
|
|
56
|
+ (multiple-value-bind (output-file error)
|
|
57
|
+ (ignore-errors (compile-file file :verbose nil :print nil))
|
|
58
|
+ (when error
|
|
59
|
+ (warn "Error while compiling plugin ~A: ~A.~%" name error))
|
|
60
|
+ (load (or output-file file) :verbose t)))
|
57
|
61
|
(let ((package (find-package (plugin-package name))))
|
58
|
62
|
(apply (find-symbol "ENABLE" package) args))))
|
59
|
63
|
|