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)))