anchor.diff:                    (incf j)
                     finally (setf j 1))
               finally (progn (setf lastk k) (setf (svref huffsize lastk) 0)))
  -      
  +
         ;; generating huffcode
         (loop with k fixnum = 0 and code fixnum = 0 and si fixnum = (svref huffsize 0) do
               (loop do
  
positive.code:                                                    (dbref inbuf xlim y))
                                                    ((> y ylim)
                                                     (dbref inbuf x ylim))
  						  (t
  						   (error "Internal error"))
  						   ))))))))
  
  ;;; Returns sum of Vi*Hi
  (defun count-relation (smp)
  
negative.code:         (z1 0) (z2 0) (z3 0) (z4 0) (z5 0)
          (dcval 0))
      (declare #.*optimize*
               (type fixnum tmp0 tmp1 tmp2 tmp3 tmp10 tmp11 tmp12 tmp13 z1 z2 z3 z4 z5 dcval)
               (type (simple-vector *) block)
               (dynamic-extent tmp0 tmp1 tmp2 tmp3 tmp10 tmp11 tmp12 tmp13 z1 z2 z3 z4 z5 dcval))
      (loop for dptr fixnum from 0 to 7 ;iterating over columns
            if (and (zerop (dbref block dptr 1))
                    (zerop (dbref block dptr 2))
  