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")