From: Paul Khuong <pvk@pvk.ca>
Date: Tue, 23 Aug 2011 18:49:32 +0000 (-0400)
Subject: Fix a typo in NANOSLEEP
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=1d8fbfadd235e156fbbf6e04f5274c748af8416b;p=sbcl.git

Fix a typo in NANOSLEEP

 Missing pluralization in the #!+darwin code path.
---

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index 412ecdc..248f72e 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -977,8 +977,8 @@ corresponds to NAME, or NIL if there is none."
                        (when (or (> secs rem-sec)
                                  (and (= secs rem-sec) (>= nsecs rem-nsec)))
                          ;; Update for next round.
-                         (setf sec rem-sec
-                               nsec rem-nsec)
+                         (setf secs  rem-sec
+                               nsecs rem-nsec)
                          t)))
           do (setf (slot req 'tv-sec) (slot rem 'tv-sec)
                    (slot req 'tv-nsec) (slot rem 'tv-nsec)))))