Ignore:
Timestamp:
Aug 11, 2008, 3:49:48 AM (11 years ago)
Author:
gb
Message:

Merge a lot of the CLOS/type-system changes from working-0711 branch
into trunk. Todo: compiler-macros for those changes.

Have -not- yet merged source-tracking changes, new record-source file
from working-0711, but this stuff seems to bootstrap in one swell foop.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-processes.lisp

    r10253 r10426  
    296296by process-suspend."
    297297  (setq p (require-type p 'process))
    298   (%resume-tcr (process-tcr p)))
     298  (let* ((tcr (process-tcr p)))
     299    (and tcr (%resume-tcr tcr))))
    299300
    300301(defun process-suspend (p)
     
    303304  (if (eq p *current-process*)
    304305    (error "Suspending the current process can't work.  ~&(If the documentation claims otherwise, it's incorrect.)")
    305     (%suspend-tcr (process-tcr p))))
     306    (let* ((tcr (process-tcr p)))
     307      (and tcr (%suspend-tcr tcr)))))
    306308
    307309(defun process-suspend-count (p)
Note: See TracChangeset for help on using the changeset viewer.