Use format ~A for error messages.

Pascal J. Bourguignon [2019-05-20 04:16]
Use format ~A for error messages.
Filename
small-cl-pgms/aim-8/aim-8.lisp
diff --git a/small-cl-pgms/aim-8/aim-8.lisp b/small-cl-pgms/aim-8/aim-8.lisp
index 97a263f..f1911d2 100644
--- a/small-cl-pgms/aim-8/aim-8.lisp
+++ b/small-cl-pgms/aim-8/aim-8.lisp
@@ -166,7 +166,7 @@ Extensions:
       (format *error-output* "~&"))
      (condition
       (err)
-      (format *error-output* "~&~A: ~%  ~S~%" (class-name (class-of err)) err))))
+      (format *error-output* "~&~A: ~%  ~A~%" (class-name (class-of err)) err))))


 (defun repl ()
ViewGit