Fix for being compatible with the latest Shelly.

quickdocs · Nov 24, 2014 · 6b47cd7 · 6b47cd7
1 parent 7f4c3ca
commit 6b47cd7
Showing 1 changed file with 8 additions and 9 deletions.
diff --git a/updater/model/system.lisp b/updater/model/system.lisp
@@ -28,15 +28,14 @@
            (*error-output* (make-broadcast-stream))
            (system (with-retrying 3 (asdf:find-system system-name nil))))
       (when system
-        (prin1-to-string
-         (list
-          :author (emit-quote (asdf:system-author system))
-          :maintainer (emit-quote (asdf:system-maintainer system))
-          :version (slot-value system 'asdf:version)
-          :description (safety-princ-to-string (asdf:system-description system))
-          :long-description (safety-princ-to-string (asdf:system-long-description system))
-          :homepage (asdf:system-homepage system)
-          :license (asdf:system-license system)))))))
+        (list
+         :author (emit-quote (asdf:system-author system))
+         :maintainer (emit-quote (asdf:system-maintainer system))
+         :version (slot-value system 'asdf:version)
+         :description (safety-princ-to-string (asdf:system-description system))
+         :long-description (safety-princ-to-string (asdf:system-long-description system))
+         :homepage (asdf:system-homepage system)
+         :license (asdf:system-license system))))))
 
 @export
 (defun system-info-in-process (system-name)