Raymond Toy pushed to branch issue-240-add-hashtable-for-destructive-set-ops at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/code/list.lisp
    ... ... @@ -749,7 +749,9 @@
    749 749
     (defparameter *min-list-length-for-hashtable*
    
    750 750
       15)
    
    751 751
     
    
    752
    -(declaim (start-block list-to-hashtable union intersection set-difference))
    
    752
    +(declaim (start-block list-to-hashtable
    
    753
    +                      union intersection set-difference
    
    754
    +                      nunion nintersection nset-difference))
    
    753 755
     ;; Convert a list to a hashtable.  The hashtable does not handle
    
    754 756
     ;; duplicated values in the list.  Returns the hashtable.
    
    755 757
     (defun list-to-hashtable (list key test test-not)