Ticket #993: l0-hash.lisp.diff

File l0-hash.lisp.diff, 865 bytes (added by uchida, 20 months ago)
  • ccl/level-0/l0-hash.lisp

    old new  
    4141  (declaim (inline read-lock-hash-table write-lock-hash-table  unlock-hash-table)) 
    4242  (declaim (inline %hash-symbol)) 
    4343  (declaim (inline hash-mod)) 
    44   (declaim (inline set-hash-key-conditional set-hash-value-conditional)) 
     44;;  (declaim (inline set-hash-key-conditional set-hash-value-conditional)) 
    4545  (declaim (inline hash-lock-free-p lock-free-gethash))) 
    4646 
    4747 
     
    742742    (declare (fixnum size index vector-index)) 
    743743    (%set-does-not-need-rehashing vector) 
    744744    (loop 
     745       (when (%needs-rehashing-p (nhash.vector hash)) (return)) ;; debug993 
    745746      (when (>= (incf index) size) (return)) 
    746747      (setq vector-index (+ vector-index 2)) 
    747748      (unless (%already-rehashed-p index rehash-bits)