X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Falloc.lisp;h=5ae0275672b9f66d9e775bf1c2098719a7a3eee6;hb=619189958917e80786d5bb2efa4dc38d908d2553;hp=4bdb9fea4f26799c80a07a39c40aff672616fbc2;hpb=65cccbb44b03207ce2fb73b29424a91a7d315189;p=sbcl.git

diff --git a/src/code/alloc.lisp b/src/code/alloc.lisp
index 4bdb9fe..5ae0275 100644
--- a/src/code/alloc.lisp
+++ b/src/code/alloc.lisp
@@ -33,6 +33,8 @@
                                  lowtag-mask))
                (new-pointer (+ *static-space-free-pointer* nwords))
                (new-free (* new-pointer n-word-bytes)))
+          ;; FIXME: don't signal while in WITHOUT-GCING, the handler
+          ;; risks deadlock with SIG_STOP_FOR_GC.
           (unless (> static-space-end new-free)
             (error 'simple-storage-condition
                    :format-control "Not enough memory left in static space to ~