[graphic-forms-cvs] r234 - trunk

[junrue at common-lisp.net]

Author: junrue
Date: Tue Aug 22 18:43:47 2006
New Revision: 234

Modified:
   trunk/config.lisp
Log:
make configure-asdf work like the readme says it should

Modified: trunk/config.lisp
==============================================================================
--- trunk/config.lisp	(original)
+++ trunk/config.lisp	Tue Aug 22 18:43:47 2006
@@ -52,8 +52,6 @@
 (defvar *lisp-unit-file*      "graphic-forms/src/external-libraries/practicals-1.0.3/lisp-unit.lisp")
 
 (defun configure-asdf ()
-  (pushnew *binary-data-dir*     asdf:*central-registry* :test #'equal)
-  (pushnew *cffi-dir*            asdf:*central-registry* :test #'equal)
-  (pushnew *closer-mop-dir*      asdf:*central-registry* :test #'equal)
-  (pushnew *lw-compat-dir*       asdf:*central-registry* :test #'equal)
-  (pushnew *macro-utilities-dir* asdf:*central-registry* :test #'equal))
+  (loop for var in '(*binary-data-dir* *cffi-dir* *closer-mop-dir* *lw-compat-dir* *macro-utilities-dir*)
+        when (symbol-value var)
+        do (pushnew (symbol-value var) asdf:*central-registry* :test #'equal)))