Changeset 645

Timestamp:

07/19/11 09:00:42 (14 years ago)

Author:

lgiessmann

Message:

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

File:

• trunk/src/json/isidorus-json/json_tmcl.lisp (modified) (1 diff)

trunk/src/json/isidorus-json/json_tmcl.lisp ¶

@@ -1716 +1716 @@
                    *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)))