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... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/0563f5ab8ad64eac0fad68ee... You're receiving this email because of your account on gitlab.common-lisp.net.