Python interpreter embedded in SBCL

python-interpreter.lisp

(defpackage :python-interpreter
  (:use :common-lisp :cffi)
  (:export #:run-python))

(in-package :python-interpreter)

(define-foreign-library libpython (:unix "libpython3.10.so"))

(use-foreign-library libpython)

(defcfun "Py_InitializeEx" :void (initsigs :int))
(defcfun "PyRun_SimpleStringFlags" :void (str :string) (flags :pointer))
(defcfun "Py_FinalizeEx" :int)

(defun run-python ()
  (sb-vm::with-float-traps-masked
      (:underflow :overflow :inexact :invalid :divide-by-zero)
    (py-initializeex 1)
    (pyrun-simplestringflags "import code; code.interact()" (cffi:null-pointer))
    (py-finalizeex)))