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))