X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftimer.lisp;h=ca4ffef1545965a2e82b51a1c2032fb0274e57af;hb=54da325f13fb41669869aea688ae195426c0e231;hp=29dc0a8e156d2997506352f17464fcb43b483c41;hpb=378a5e39c182b5c3ba14da80c157ad2c0021b25f;p=sbcl.git

diff --git a/src/code/timer.lisp b/src/code/timer.lisp
index 29dc0a8..ca4ffef 100644
--- a/src/code/timer.lisp
+++ b/src/code/timer.lisp
@@ -111,7 +111,7 @@
       (heap-extract-maximum contents :key keyfun :test #'<=))))
 
 (defun priority-queue-insert (priority-queue new-item)
-  "Add NEW-ITEM to PRIOIRITY-QUEUE."
+  "Add NEW-ITEM to PRIORITY-QUEUE."
   (symbol-macrolet ((contents (%pqueue-contents priority-queue))
                     (keyfun (%pqueue-keyfun priority-queue)))
     (heap-insert contents new-item :key keyfun :test #'<=)))