[cl-sbml-cvs] CVS update: cl-sbml/build-model.lisp

[Marco Antoniotti]

Update of /project/cl-sbml/cvsroot/cl-sbml
In directory common-lisp.net:/tmp/cvs-serv32734

Modified Files:
	build-model.lisp 
Log Message:
Added missing `cl-xml-ext' subdirectory and changed some minor
things.


Date: Mon May 10 14:43:19 2004
Author: mantoniotti

Index: cl-sbml/build-model.lisp
diff -u cl-sbml/build-model.lisp:1.1.1.1 cl-sbml/build-model.lisp:1.2
--- cl-sbml/build-model.lisp:1.1.1.1	Thu Apr 22 13:56:01 2004
+++ cl-sbml/build-model.lisp	Mon May 10 14:43:19 2004
@@ -204,7 +204,8 @@
 
 
 (defun collect-math (m)
-  (cl-mathml:build-form-from-mathml m))
+  (and m
+       (cl-mathml:build-form-from-mathml m)))
 
 
 ;;; end of file --