X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=BUGS;h=1c20aab51dd981debb3b893c2221b19e6a1beb6c;hb=d8ff33b902ee966fd772389a9f1f827a4b9576bc;hp=ac698a4c37b6f378d605f48d5a53be7f8c4b8232;hpb=2fb5b174f6acb88a85c86aa4cd753ddefaccc987;p=sbcl.git

diff --git a/BUGS b/BUGS
index ac698a4..1c20aab 100644
--- a/BUGS
+++ b/BUGS
@@ -2100,3 +2100,25 @@ WORKAROUND:
      instead errors.
 
      (reported on sbcl-help by "tichy")
+
+396: block-compilation bug
+    (let ((x 1))
+      (dotimes (y 10)
+        (let ((y y))
+          (when (funcall (eval #'(lambda (x) (eql x 2))) y)
+            (defun foo (z)
+              (incf x (incf y z))))))
+      (defun bar (z)
+        (foo z)
+        (values x)))
+  (bar 1) => 11, should be 4.
+
+397: SLEEP accuracy
+  The more interrupts arrive the less accurate SLEEP's timing gets.
+    (time (sb-thread:terminate-thread
+            (prog1 (sb-thread:make-thread (lambda ()
+                                            (loop
+                                             (princ #\!)
+                                             (force-output)
+                                             (sb-ext:gc))))
+              (sleep 1))))