From 33ab1ff0607ea82fdabb6cae423248d2040b3286 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 14 Nov 2021 16:41:12 -0700 Subject: *US*: use SB-EXT:*RUNTIME-PATHNAME* not SB-EXT:*CORE-PATHNAME* SB-EXT:*RUNTIME-PATHNAME* is the path to the executable. Signed-off-by: Sean Whitton --- src/image.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/image.lisp') diff --git a/src/image.lisp b/src/image.lisp index 969cea0..eb27942 100644 --- a/src/image.lisp +++ b/src/image.lisp @@ -106,7 +106,7 @@ Thus, PREREQUEST must not start up any threads." #+sbcl (defvar *sbcl-runtime-cksum* (local-cksum sb-ext:*runtime-pathname*)) (defvar *us* - #+sbcl sb-ext:*core-pathname* + #+sbcl sb-ext:*runtime-pathname* #+(and linux (not sbcl)) (resolve-symlinks "/proc/self/exe")) (define-simple-error wrong-execution-context-for-image-dump (aborted-change)) -- cgit v1.2.3