Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fix fork

  • Loading branch information...
commit 0c5be1060e200ea438e608dbaad6535f4cce34db 1 parent 3b012f0
Jeff Palmucci authored
Showing with 3 additions and 1 deletion.
  1. +3 −1 future.lisp
View
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"
#+sbcl
(return-from fork (sb-posix:fork))
+ #+allegro
+ (return-from fork (excl.osi:fork))
(nix:fork))
(defclass future ()
Please sign in to comment.
Something went wrong with that request. Please try again.