X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=BUGS;h=ebccf55226c71f6ba004ef4c80a1efb3743a95fe;hb=2c06e3056fe6aa820817a927fa0e840eb7b8edb7;hp=8fd2a83a643565274d856f02eb6ac077d8e727bd;hpb=5d5894082c39ca44da75d38859d669c7b2108f6a;p=sbcl.git

diff --git a/BUGS b/BUGS
index 8fd2a83..ebccf55 100644
--- a/BUGS
+++ b/BUGS
@@ -1882,7 +1882,23 @@ generally try to check returns in safe code, so we should here too.)
  call for functions already inline converted there, but he is not sure
  if this has adverse effects elsewhere.
 
-428: TIMER SCHEDULE-STRESS in timer.impure.lisp fails
+428: TIMER SCHEDULE-STRESS and PARALLEL-UNSCHEDULE in
+     timer.impure.lisp fails
 
  Failure modes vary. Core problem seems to be (?) recursive entry to
  RUN-EXPIRED-TIMERS.
+
+429: compiler hangs
+
+  Compiling a file with this contents makes the compiler loop in
+  ORDER-UVL-SETS:
+
+  (declaim (inline storage))
+  (defun storage (x)
+    (the (simple-array flt (*)) (unknown x)))
+
+  (defun test1 (lumps &key cg)
+    (let ((nodes (map 'list (lambda (lump) (storage lump))
+                      lumps)))
+      (setf (aref nodes 0) 2)
+      (assert (every #'~= (apply #'concatenate 'list nodes) '(2 3 6 9)))))