SLY: Fix sly-asdf-load-system with Guix SBCL packages.

.emacs.d/lisp/init-lisp.el

@@ -146,6 +146,7 @@ returns a string."
       (point))))
 
 (with-eval-after-load 'sly
+  (require 'patch-sly)
   (advice-add 'sly-mrepl--insert-prompt :around #'ambrevar/sly-prepare-prompt)
 
   (advice-add 'sly-mrepl-next-prompt :override #'ambrevar/sly-mrepl-next-prompt)

.emacs.d/lisp/patch-sly.el

@@ -0,0 +1,10 @@
+;; REVIEW: https://github.com/mmgeorge/sly-asdf/issues/33
+(with-eval-after-load 'sly-asdf
+  (defun sly-asdf-load-system (&optional system)
+  "Compile and load an ASDF SYSTEM.
+Default system name is taken from first file matching *.asd in current
+buffer's working directory"
+  (interactive (list (sly-asdf-read-system-name)))
+  (sly-asdf-oos system 'load-op :force nil)))
+
+(provide 'patch-sly)