diff options
author | cjl <empty> | 1989-10-13 00:55:13 +0000 |
---|---|---|
committer | cjl <empty> | 1989-10-13 00:55:13 +0000 |
commit | 1115ca5e63fd524566576a15339d8b33fbc115ea (patch) | |
tree | 6e411873a19e5b8fb61cfa55c5b705a03b51f8db /xc/unsupported | |
parent | 7080b0aca77d56b73f0b63d45b531b891cd9b8c4 (diff) |
Franz changes
Diffstat (limited to 'xc/unsupported')
-rw-r--r-- | xc/unsupported/lib/CLX/exclcmac.l | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/xc/unsupported/lib/CLX/exclcmac.l b/xc/unsupported/lib/CLX/exclcmac.l index d43241939..032b64111 100644 --- a/xc/unsupported/lib/CLX/exclcmac.l +++ b/xc/unsupported/lib/CLX/exclcmac.l @@ -231,13 +231,20 @@ `(and mp::*scheduler-stack-group* mp::*current-process*)) +#+notyet (defcmacro process-wakeup (process) (let ((proc (gensym))) `(let ((.pw-curproc. mp::*current-process*) (,proc ,process)) - (if (and .pw-curproc. ,proc (> (mp::process-priority ,proc) - (mp::process-priority .pw-curproc.))) - (mp::process-allow-schedule ,proc))))) + (declare (optimize (speed 0) (safety 3))) + (when (and .pw-curproc. ,proc) + (unless (mp::process-p .pw-curproc.) + (error "~s is not a process" .pw-curproc.)) + (unless (mp::process-p ,proc) + (error "~s is not a process" ,proc)) + (if (> (mp::process-priority ,proc) + (mp::process-priority .pw-curproc.)) + (mp::process-allow-schedule ,proc)))))) (defcmacro buffer-replace (target-sequence source-sequence target-start target-end &optional (source-start 0)) |