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:

===================================== src/code/list.lisp ===================================== @@ -991,7 +991,7 @@

(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 @@ -1049,7 +1049,7 @@ (return-from subsetp nil))) T))))

-;;(declaim (end-block)) +(declaim (end-block))

;;; Functions that operate on association lists

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/0563f5ab8ad64eac0fad68ee...