Raymond Toy pushed to branch issue-240-set-diff-with-hash-table at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/code/list.lisp
    ... ... @@ -863,7 +863,7 @@
    863 863
       (if (and testp notp)
    
    864 864
           (error "Test and test-not both supplied."))
    
    865 865
       ;; Quick exit
    
    866
    -  (when (null list)
    
    866
    +  (when (null list2)
    
    867 867
         (return-from set-difference list1))
    
    868 868
     
    
    869 869
       (multiple-value-bind (hashtable shorter-list)