cl-olefs

commit 7b1e66e0ec87c4e33db38d6b0b3fb1e572b94e91
parent 610fe1446a2acdd63cab0a94d81b7e4e2cd4b2ee
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun, 12 Jun 2011 14:04:48 +0200

comments removed

Diffstat:
M
olefs.lisp
 | 
2
--

1 file changed, 0 insertions(+), 2 deletions(-)
diff --git a/olefs.lisp b/olefs.lisp
@@ -241,7 +241,6 @@
                                 (write-string "   "))
                               (print-ole-entry entry *standard-output*)
                               (terpri)))
-      ;; TODO small block chain for root entry
       (funcall fn ole-file))))
 
 (defmacro with-ole-file ((ole-file filename) &body body)
@@ -333,7 +332,6 @@
        (lambda (entry id level)
          (declare (ignore id level))
          (case (ole-entry.object-type entry)
-           ;;(1 "storage")
            (2 ;; stream
             (let ((entry-name (ole-entry-name-to-string
                                (ole-entry.name entry)