fix load-resource-file on asdf3. still a kludge...
Sun Feb 24 05:41:45 PST 2013 attila.lendvai@gmail.com
* fix load-resource-file on asdf3. still a kludge...
diff -rN -u old-cl-l10n/src/load-locale.lisp new-cl-l10n/src/load-locale.lisp
--- old-cl-l10n/src/load-locale.lisp 2014-07-22 20:46:41.000000000 -0700
+++ new-cl-l10n/src/load-locale.lisp 2014-07-22 20:46:41.000000000 -0700
@@ -104,14 +104,15 @@
(defun load-resource-file (resource-file)
(bind ((output-files (asdf:output-files (make-instance 'asdf::compile-op)
(make-instance 'asdf:cl-source-file :pathname resource-file :parent (asdf:find-system :cl-l10n)))))
- (assert (length= 1 output-files))
- (bind ((output-file (first output-files)))
- (ensure-directories-exist output-file)
- (when (or (not (cl-fad:file-exists-p output-file))
- (> (file-write-date resource-file)
- (file-write-date output-file)))
- (compile-file resource-file :output-file output-file))
- (load output-file))))
+ ;; FIXME TODO this whole thing is a nasty kludge, we should use asdf internals...
+ ;; details: http://thread.gmane.org/gmane.lisp.asdf.devel/2862
+ (bind ((output-file (first output-files)))
+ (ensure-directories-exist output-file)
+ (when (or (not (cl-fad:file-exists-p output-file))
+ (> (file-write-date resource-file)
+ (file-write-date output-file)))
+ (compile-file resource-file :output-file output-file))
+ (load output-file))))
(defun reload-resources ()
(load-resource "common")