Fix a typo in the previous commit.

-1 should be ~S.

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index f5a7aa9..d3f523f 100644 (file)
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -198,7 +198,7 @@ any non-negative real number."
   (when (or (not (realp seconds))
             (minusp seconds))
     (error 'simple-type-error
-           :format-control "Invalid argument to SLEEP: -1, ~
+           :format-control "Invalid argument to SLEEP: ~S, ~
                             should be a non-negative real."
            :format-arguments (list seconds)
            :datum seconds