diff options
author | Felix Lange <fjl@twurst.com> | 2022-07-29 10:07:40 +0200 |
---|---|---|
committer | Christophe Rhodes <csr21@cantab.net> | 2022-07-29 15:22:39 +0100 |
commit | 52418c9a04021a85e4dfd38a765dd34626be1606 (patch) | |
tree | 321879e664e38618814be29b50776a14757165fd | |
parent | 0140de0f11f3f1eb14bd138fde69230514339aea (diff) |
Retain some internal symbols of SB-LOOP for CLSQL
This fixes a regression from commit a0329ac59e, after which CLSQL
couldn't be built anymore because it attempts to use certain internal
symbols from SB-LOOP.
-rw-r--r-- | make-target-2-load.lisp | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/make-target-2-load.lisp b/make-target-2-load.lisp index da11a2974..571249eb9 100644 --- a/make-target-2-load.lisp +++ b/make-target-2-load.lisp @@ -425,7 +425,6 @@ Please check that all strings which were not recognizable to the compiler #.(find-package "SB-ASSEM") #.(find-package "SB-DISASSEM") #.(find-package "SB-IMPL") - #.(find-package "SB-LOOP") #.(find-package "SB-FORMAT") #.(find-package "SB-UNIX") #.(find-package "SB-PCL") @@ -438,6 +437,11 @@ Please check that all strings which were not recognizable to the compiler #.(find-package "SB-KERNEL")) ;; Assume all and only external symbols must be retained (eq accessibility :external)) + (#.(find-package "SB-LOOP") + (or (eq accessibility :external) + ;; Retain some internals to keep CLSQL working. + (member symbol '(sb-loop::*loop-epilogue* + sb-loop::add-loop-path)))) (#.(find-package "SB-THREAD") (or (eq accessibility :external) ;; for some reason a recent change caused the tree-shaker to drop MAKE-SPINLOCK |