Index: anches/ia32/level-0/X86/X8632/x8632-io.lisp
===================================================================
--- /branches/ia32/level-0/X86/X8632/x8632-io.lisp	(revision 8376)
+++ 	(revision )
@@ -1,14 +1,0 @@
-(in-package "CCL")
-
-;;; not very smart yet
-
-(defx8632lapfunction %get-errno ()
-  (mark-as-imm temp1)
-  (let ((imm1 temp1))
-    (movl (@ (% :rcontext) x8632::tcr.errno-loc) (% imm1))
-    (movl (@ (% imm1)) (% imm0))
-    (movss (% fpzero) (@ (% imm1)))
-    (negl (% imm0))
-    (box-fixnum imm0 arg_z))
-  (mark-as-node temp1)
-  (single-value-return))