fix(common-lisp): +lisp/reload-project

`sly-asdf-load-system` doesn't auto-select the current system without a
little help.

Fix: #8708
This commit is contained in:
Henrik Lissner 2026-03-11 02:54:27 -04:00
parent f573c7a1ee
commit d771e24efa
No known key found for this signature in database
GPG key ID: B60957CA074D39A3

View file

@ -31,7 +31,10 @@
(error "Failed to reload Lisp project in 5 attempts.")
(recurse (1+ attempt)))))))
(recurse 1)
(sly-asdf-load-system)))
(sly-asdf-load-system
(or (sly-asdf-find-current-system)
(car sly-asdf-system-history)
(user-error "Can't find a system to reload")))))
;;;###autoload
(defun +lisp/find-file-in-quicklisp ()