diff --git a/misc/compile-1.lisp b/misc/compile-1.lisp
index 02168ae4050a694d09e08aebbbbdba5e6018aeeb..f0d57006d376c3cd75f471b7a83c8ce74937c77a 100644
--- a/misc/compile-1.lisp
+++ b/misc/compile-1.lisp
@@ -1,9 +1,9 @@
-;; -*- mode: common-lisp; package: user -*-
+;; -*- mode: common-lisp; package: cl-user -*-
 ;;
 ;; See the file LICENSE for the full license governing this code.
 ;;
 
-(in-package :user)
+(in-package :cl-user)
 
 ;;; This should not matter
 ;;; (setq *ignore-package-name-case* t)
@@ -15,30 +15,6 @@
 (eval-when (compile load eval) 
   (pushnew :acl86win32 *features*))
 
-#-(version>= 6 0)
-(setq comp:generate-call-count-code-switch
-  (named-function |(> debug 1)|
-		  (lambda (safety size speed debug)
-		    (declare (ignore safety size speed))
-		    (> debug 1))))
-
-#-(version>= 8 2)
-(setq comp:declared-fixnums-remain-fixnums-switch
-  (named-function |(> speed 2)|
-		  (lambda (safety size speed debug)
-		    (declare (ignore safety size debug))
-		    (> speed 2))))
-
-
-;; [bug18430]:
-#+(version>= 8 2)
-(setq comp:declared-fixnums-remain-fixnums-switch
-  (named-function |(> speed 2)|
-		  (lambda (safety size speed debug compilation-speed)
-		    (declare (ignore safety size debug compilation-speed))
-		    (> speed 2))))
-
-
 ;;;; Set up translations so we can find stuff.
 ;;;
 (setf (logical-pathname-translations "clim2")