X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftoplevel.lisp;h=d3f523fe9a6487578ec1b11ec0df4f001fb910d8;hb=5f0bd05a15aaf93f46baf9b8aa3e9b0bfbca26ab;hp=f5a7aa9fc3f867ad7ed0de61a9d6d638f688f1d8;hpb=62964aced3a1480849e0bc9de1b0ca927b2e2475;p=sbcl.git

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index f5a7aa9..d3f523f 100644
--- 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