[lgtk-devel] glade -- typo fixed in diff

[Sean Champ]

Hello,

At the end of the previous email, I had included a small diff. The
diffed code, simply, was made such that it would move the list of 
pkconfig module names, out  from within the pkgconfig-calling
functions, and such that it would add "libglade-2.0" to the list
(discovered, heh) of module names.


Begging pardon, but the diff contained a typo -- "ligblade" instead of
"libglade", it was.


The typo has been fixed. I'll excuse myself, for not having 
loaded/tested the affected asd file, before having sent the diff -- it
seemed like it would work, as intended, but there was the tpyo,
there. Perhaps I will "meditate on unit testign", also.



The diff is repeated, below, should it be deemed to be of use.



--
Sean Champ
schamp at commonwerx.org





Index: lgtk.asd
===================================================================
RCS file: /project/lgtk/cvsroot/lgtk/lgtk.asd,v
retrieving revision 1.10
diff -p -u -u -r1.10 lgtk.asd
--- lgtk.asd	13 May 2004 19:33:49 -0000	1.10
+++ lgtk.asd	25 Apr 2005 13:06:13 -0000
@@ -12,6 +12,11 @@
 
 (defvar *ccompiler* "cc")
 
+
+;; list of library/module names to  provide to pkgconfig
+(defparameter *pkgconfig-modules* '("gtk+-2.0" "libglade-2.0"))
+
+
 ;; Split a string at whitespace.
 (defun splitatspc (str)
   (labels ((whitespace-p (c)
@@ -32,10 +37,10 @@
       (cdr buf))))
 
 (defun pkg-config-lib-string ()
-  #+sbcl (run-program "pkg-config" '("--libs" "gtk+-2.0")
+  #+sbcl (run-program "pkg-config" (list* "--libs" *pkgconfig-modules*)
 		      :search t
 		      :output :stream)
-  #+cmu (ext:run-program "pkg-config" '("--libs" "gtk+-2.0")
+  #+cmu (ext:run-program "pkg-config" (list* "--libs" *pkgconfig-modules*)
 			  :output :stream))
 
 ;; Get the list of libraries.
@@ -55,10 +60,10 @@
 
 
 (defun pkg-config-cflags-string ()
-  #+sbcl (run-program "pkg-config" '("--cflags" "gtk+-2.0")
+  #+sbcl (run-program "pkg-config" (list* "--cflags" *pkgconfig-modules*)
 		      :search t
 		      :output :stream)
-  #+cmu (ext:run-program "pkg-config" '("--cflags" "gtk+-2.0")
+  #+cmu (ext:run-program "pkg-config" (list* "--cflags" *pkgconfig-modules*)
 			  :output :stream))
 
 (defun get-gtk-cflags ()