More formatting fixes.

This commit is contained in:
Alexander Artemenko 2020-09-12 22:00:15 +03:00
parent 2f77bcf8ce
commit 9cd03ac25b

View file

@ -80,12 +80,11 @@ ASDF: ~A
(defmethod print-object ((info system-info) stream) (defmethod print-object ((info system-info) stream)
(if (absent-p info) (if (absent-p info)
(format stream (format stream
"System: ~A is not available" "System: ~A is not available~%"
(get-name info)) (get-name info))
(format stream (format stream
"System: ~A ~A "System: ~A ~A
~A ~A~%"
"
(get-name info) (get-name info)
(get-version info) (get-version info)
(get-path info)))) (get-path info))))