gtk/gtk.lisp: Apparently when you ask for a stock Button, you get a Bin.

[clg] / tools / clg-tools.asd

diff --git a/tools/clg-tools.asd b/tools/clg-tools.asd
index 65891639a5b7ad7e73f6cbc391064141c98e8ab1..cf6fb2e81efb61e1d49f5cfda306600f667d5c5c 100644 (file)
--- a/tools/clg-tools.asd
+++ b/tools/clg-tools.asd
@@ -14,5 +14,12 @@
   :depends-on (#+sbcl sb-posix)
   :components ((:file "utils")
               (:file "config" :depends-on ("utils"))
-              (:file "asdf-extensions" :depends-on ("utils"))
+              (:file "asdf-extensions" :depends-on ("utils" "config"))
               (:file "autoexport" :depends-on ("asdf-extensions"))))
+
+
+
+;; For backward compatibility
+(let ((dir (asdf:component-pathname (asdf:find-system :clg-tools))))
+  (setf (logical-pathname-translations "clg")
+   `(("**;*.*.*" ,(make-pathname :directory (append (butlast (pathname-directory dir)) (list :wild-inferiors)) #+win32 :defaults #+win32 dir)))))