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

Commits:

• 0563f5ab
  by Raymond Toy at 2023-08-20T13:32:29-07:00

  Block compile shorter-list-to-hashtable with subsetp
  
  Add block compilation declarations so `shorter-list-to-hashtable` can
  be a local call for `subsetp`.
  

1 changed file:

• src/code/list.lisp

Changes:

 (defvar *allow-hashtable-for-set-functions* t)

-;;(declaim (start-block shorter-list-to-hashtable subsetp))

+(declaim (start-block shorter-list-to-hashtable subsetp))

 (defun shorter-list-to-hashtable (list1 list2 key test test-not)

   ;; Find the shorter list and return the length and the shorter list

 	       (return-from subsetp nil)))

 	   T))))

-;;(declaim (end-block))

+(declaim (end-block))

 ;;; Functions that operate on association lists