[isidorus-cvs] r645 - trunk/src/json/isidorus-json

[lgiessmann at common-lisp.net]

Author: lgiessmann
Date: Tue Jul 19 02:00:42 2011
New Revision: 645

Log:
trunk: fixed a bug in the json format when creating a storage overview

Modified:
   trunk/src/json/isidorus-json/json_tmcl.lisp

Modified: trunk/src/json/isidorus-json/json_tmcl.lisp
==============================================================================
--- trunk/src/json/isidorus-json/json_tmcl.lisp	Tue Jul 19 01:28:04 2011	(r644)
+++ trunk/src/json/isidorus-json/json_tmcl.lisp	Tue Jul 19 02:00:42 2011	(r645)
@@ -1715,8 +1715,7 @@
 	    (error "From make-tree-view(): The topictype-constraint \"~a\" exists but the topictype \"~a\" is missing!"
 		   *topictype-constraint-psi* 
 		   *topictype-psi*))
-	  (let ((lst (remove-null (make-nodes topictype t t :revision revision))))
-	    (if lst (list lst) nil)))
+	  (list (make-nodes topictype t t :revision revision)))
 	(let ((tree-roots
 	       (get-all-tree-roots :revision revision)))
 	  (let ((tree-list