X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdebug.lisp;h=f4be0a0e2e91c2e30f679239b134a4063ccec546;hb=54da325f13fb41669869aea688ae195426c0e231;hp=6707533ae134b6cc3c34533eac9c44fe5d22dadd;hpb=378a5e39c182b5c3ba14da80c157ad2c0021b25f;p=sbcl.git

diff --git a/src/compiler/debug.lisp b/src/compiler/debug.lisp
index 6707533..f4be0a0 100644
--- a/src/compiler/debug.lisp
+++ b/src/compiler/debug.lisp
@@ -15,7 +15,7 @@
 (defvar *args* ()
   #!+sb-doc
   "This variable is bound to the format arguments when an error is signalled
-  by BARF or BURP.")
+by BARF or BURP.")
 
 (defvar *ignored-errors* (make-hash-table :test 'equal))
 
@@ -36,7 +36,7 @@
 (defvar *burp-action* :warn
   #!+sb-doc
   "Action taken by the BURP function when a possible compiler bug is detected.
-  One of :WARN, :ERROR or :NONE.")
+One of :WARN, :ERROR or :NONE.")
 (declaim (type (member :warn :error :none) *burp-action*))
 
 ;;; Called when something funny but possibly correct is noticed.