diff --git a/compiler/x86/system.lisp b/compiler/x86/system.lisp index a6c54aa787e020b046229010680f15910c422580..d91e0018c29db4c65c241837ceeed8da0eac0906 100644 --- a/compiler/x86/system.lisp +++ b/compiler/x86/system.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/system.lisp,v 1.1 1997/01/18 14:31:19 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/system.lisp,v 1.2 1997/02/11 16:16:08 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -16,6 +16,7 @@ ;;; Written by William Lott. ;;; ;;; Debugged by Paul F. Werkowski Spring/Summer 1995. +;;; Enhancements/debugging by Douglas T. Crosher 1996. ;;; (in-package :x86) @@ -278,11 +279,6 @@ (inst int 3) (inst byte halt-trap))) -;;; bootstrapping -(in-package :kernel) -(export 'float-wait) -(in-package :x86) - (defknown float-wait () (values)) (define-vop (float-wait) (:policy :fast-safe)