From 37f0686487c59340de92c387e4a78f26be487277 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Tue, 11 Feb 1997 16:16:08 +0000 Subject: [PATCH] Removed unnecessary bootstrapping code for float-wait. --- compiler/x86/system.lisp | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/compiler/x86/system.lisp b/compiler/x86/system.lisp index a6c54aa78..d91e0018c 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) -- GitLab