debug extension

This commit is contained in:
SANO Masatoshi 2023-05-12 05:59:38 +00:00
parent 06e5dc6be2
commit b6d1eb1fd8

View file

@ -50,7 +50,7 @@
(not (zerop (length (second split))))
(format nil "~A~A" (second split) subsystem))
(lambda (system-name)
(roswell:roswell `("install" (format nil "~{~A~^/~}" split)
(roswell:roswell `("install" ,(format nil "~{~A~^/~}" split)
)))))))))
(defun roswell-installable-searcher (system-name)
@ -60,7 +60,7 @@
name
(not (equal name system-name))
(let ((result
(or (asdf:find-system name)
(or (ignore-errors (asdf:find-system name))
(progn
(funcall func system-name)
(local-project-build-hash :rebuild t)