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