[bknr-cvs] ksprotte changed trunk/projects/bos/web/contract-tree.lisp

[BKNR Commits]

Revision: 3551
Author: ksprotte
URL: http://bknr.net/trac/changeset/3551

contract-tree: removed annoying warning message that showed up, when
contract-tree images were not yet rendered

U   trunk/projects/bos/web/contract-tree.lisp

Modified: trunk/projects/bos/web/contract-tree.lisp
===================================================================
--- trunk/projects/bos/web/contract-tree.lisp	2008-07-22 10:51:32 UTC (rev 3550)
+++ trunk/projects/bos/web/contract-tree.lisp	2008-07-22 11:07:19 UTC (rev 3551)
@@ -23,12 +23,10 @@
 	(first store-images)
 	;; We will just return NIL, if we cannot find one.
         ;; If there are too many, we will return the newest one and delete the rest.
-	(progn
-	  (warn "~D store-images for ~S" (length store-images) node)
-	  (let ((store-images-newest-first
-		 (sort (copy-list store-images) #'> :key #'blob-timestamp)))
-	    (mapc #'delete-object (rest store-images-newest-first))
-	    (first store-images-newest-first))))))
+	(let ((store-images-newest-first
+               (sort (copy-list store-images) #'> :key #'blob-timestamp)))
+          (mapc #'delete-object (rest store-images-newest-first))
+          (first store-images-newest-first)))))
 
 (defmethod initialize-instance :after ((node contract-node) &key args)
   (declare (ignore args))