Skip to content
Browse files

fix fork

  • Loading branch information...
1 parent 3b012f0 commit 0c5be1060e200ea438e608dbaad6535f4cce34db Jeff Palmucci committed
Showing with 3 additions and 1 deletion.
  1. +3 −1 future.lisp
4 future.lisp
@@ -16,9 +16,11 @@ When wait comes around and reaps them, we remove them from the table"
(defun fork ()
- "We need to handle for differently in different lisps"
+ "We need to handle fork differently in different lisps or else they get really confused"
(return-from fork (sb-posix:fork))
+ #+allegro
+ (return-from fork (excl.osi:fork))
(defclass future ()

0 comments on commit 0c5be10

Please sign in to comment.
Something went wrong with that request. Please try again.