From 1d8fbfadd235e156fbbf6e04f5274c748af8416b Mon Sep 17 00:00:00 2001 From: Paul Khuong Date: Tue, 23 Aug 2011 14:49:32 -0400 Subject: [PATCH] Fix a typo in NANOSLEEP Missing pluralization in the #!+darwin code path. --- src/code/unix.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))))) -- 1.7.10.4