Commit 0e9a5755 authored by Zach Beane's avatar Zach Beane
Browse files

Fix a use-case of YIELD.

parent 63262d94
......@@ -179,6 +179,11 @@
(defun %make-process (&key name (class 'process) initial-bindings)
(make-process name :class class :initial-bindings initial-bindings))
(defmethod yield ((process null))
;; *current-process* might be nil if YIELD is not run from a
;; portable process. Don't error.
(defmethod yield ((process process))
(unless (eq process *current-process*)
(error "Can't yield other processes"))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment