Changeset 10393


Ignore:
Timestamp:
Aug 8, 2008, 4:17:02 AM (11 years ago)
Author:
gb
Message:

PROCESS-SUSPEND, PROCESS-RESUME: don't pass NIL to %SUSPEND-TCR, %RESUME-TCR.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-processes.lisp

    r9620 r10393  
    280280by process-suspend."
    281281  (setq p (require-type p 'process))
    282   (%resume-tcr (process-tcr p)))
     282  (let* ((tcr (process-tcr p)))
     283    (and tcr (%resume-tcr tcr))))
    283284
    284285(defun process-suspend (p)
     
    287288  (if (eq p *current-process*)
    288289    (error "Suspending the current process can't work.  ~&(If the documentation claims otherwise, it's incorrect.)")
    289     (%suspend-tcr (process-tcr p))))
     290    (let* ((tcr (process-tcr p)))
     291      (and tcr (%suspend-tcr tcr)))))
    290292
    291293(defun process-suspend-count (p)
Note: See TracChangeset for help on using the changeset viewer.