- (let ((shared (remove-if #'null (mapcar #'sb!alien::shared-object-file
- *shared-objects*))))
- (when shared
- (warn "~@<Saving cores with shared objects loaded is unsupported on ~
- this platform: calls to foreign functions in shared objects ~
- from the restarted core will not work. You may be able to ~
- work around this limitation by reloading all foreign definitions ~
- and code using them in the restarted core, but no guarantees.~%~%~
- Shared objects in this image:~% ~{~A~^, ~}~:@>"
- shared)))
+ (warn "~@<Saving cores with alien definitions referring to non-static
+ foreign symbols is unsupported on this platform: references to
+ such foreign symbols from the restarted core will not work. You
+ may be able to work around this limitation by reloading all
+ foreign definitions and code using them in the restarted core,
+ but no guarantees.~%~:@>")