cl-olefs

commit 36589e26dc00c8e2b0dbf7a1f3648cdccfb52bc3
parent 11a282a49706b90e4277deba2f56e913ee6e64b2
Author: Tomas Hlavaty <tom@logand.com>
Date:   Wed, 15 Jun 2011 00:30:06 +0200

s/blib/blip

Diffstat:
M
olefs.lisp
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/olefs.lisp b/olefs.lisp
@@ -349,7 +349,7 @@
                  entry
                  (lambda (in level i h start end)
                    (declare (ignore level start end))
-                   (multiple-value-bind (blib kind)
+                   (multiple-value-bind (blip kind)
                        (read-record-body
                         in
                         h
@@ -363,7 +363,7 @@
                                                :if-exists :supersede
                                                :element-type '(unsigned-byte 8))
                             (alexandria:copy-stream in out))))
-                     (declare (ignore blib))
+                     (declare (ignore blip))
                      (format html "<p><img src=\"_~d.~(~a~)\">~%" i kind)))))))))))))
 
 ;;; MS-PPT PowerPoint (.ppt) Binary File Format