Loading code/error.lisp +4 −4 Original line number Diff line number Diff line Loading @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.85 2006/01/03 18:09:55 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.85.16.1 2008/10/01 20:05:15 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; Loading Loading @@ -908,7 +908,7 @@ (multiple-value-prog1 (progn ,@forms) ;; Wait for any float exceptions #+x86 (float-wait)))) #+x87 (float-wait)))) ;;;; Condition definitions. Loading Loading @@ -1172,8 +1172,8 @@ (go ,(car annotated-case))))) annotated-cases) (return-from ,tag #-x86 ,form #+x86 (multiple-value-prog1 ,form #-x87 ,form #+x87 (multiple-value-prog1 ,form ;; Need to catch FP errors here! (kernel::float-wait)))) ,@(mapcan Loading code/multi-proc.lisp +2 −2 Original line number Diff line number Diff line Loading @@ -5,7 +5,7 @@ ;;; the Public domain, and is provided 'as is'. ;;; (ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/multi-proc.lisp,v 1.43 2005/07/05 13:12:50 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/multi-proc.lisp,v 1.43.18.1 2008/10/01 20:05:15 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; Loading Loading @@ -1305,7 +1305,7 @@ "Allow other processes to run." (unless *inhibit-scheduling* ;; Catch any FP exceptions before entering the scheduler. (kernel:float-wait) #+x87 (kernel:float-wait) ;; Inhibit recursive entry of the scheduler. (setf *inhibit-scheduling* t) (assert (eq (first *remaining-processes*) *current-process*)) Loading Loading
code/error.lisp +4 −4 Original line number Diff line number Diff line Loading @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.85 2006/01/03 18:09:55 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.85.16.1 2008/10/01 20:05:15 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; Loading Loading @@ -908,7 +908,7 @@ (multiple-value-prog1 (progn ,@forms) ;; Wait for any float exceptions #+x86 (float-wait)))) #+x87 (float-wait)))) ;;;; Condition definitions. Loading Loading @@ -1172,8 +1172,8 @@ (go ,(car annotated-case))))) annotated-cases) (return-from ,tag #-x86 ,form #+x86 (multiple-value-prog1 ,form #-x87 ,form #+x87 (multiple-value-prog1 ,form ;; Need to catch FP errors here! (kernel::float-wait)))) ,@(mapcan Loading
code/multi-proc.lisp +2 −2 Original line number Diff line number Diff line Loading @@ -5,7 +5,7 @@ ;;; the Public domain, and is provided 'as is'. ;;; (ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/multi-proc.lisp,v 1.43 2005/07/05 13:12:50 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/multi-proc.lisp,v 1.43.18.1 2008/10/01 20:05:15 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; Loading Loading @@ -1305,7 +1305,7 @@ "Allow other processes to run." (unless *inhibit-scheduling* ;; Catch any FP exceptions before entering the scheduler. (kernel:float-wait) #+x87 (kernel:float-wait) ;; Inhibit recursive entry of the scheduler. (setf *inhibit-scheduling* t) (assert (eq (first *remaining-processes*) *current-process*)) Loading