Small comment added and for test

git-svn-id: http://www.fractalconcept.com:8000/public/open-source/cl-pdf@126 9d29c65d-f3d6-0310-ab0c-b43ff62e96ec
archimag · Dec 13, 2006 · 6fa7996 · 6fa7996
1 parent 44d3441
commit 6fa7996
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/salza/di-huffman.lisp b/salza/di-huffman.lisp
@@ -165,6 +165,7 @@ the upper five bits and the value of the code in the lower 23.")
 
   (defun initialize-huffman (&optional force)
    ;;; Initialize distance and temporary tables at run time
+    ;; Called by: make-deflate-stream
     (when (and %initialized% (not force))
       (return-from initialize-huffman))