Skip to content
Snippets Groups Projects
Commit f90b17cb authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

compile-1: remove invalid CL

Common Lisp doesn't allow `(version>= ...)' as feature expression.
parent 70aba520
No related branches found
No related tags found
No related merge requests found
;; -*- mode: common-lisp; package: user -*- ;; -*- mode: common-lisp; package: cl-user -*-
;; ;;
;; See the file LICENSE for the full license governing this code. ;; See the file LICENSE for the full license governing this code.
;; ;;
(in-package :user) (in-package :cl-user)
;;; This should not matter ;;; This should not matter
;;; (setq *ignore-package-name-case* t) ;;; (setq *ignore-package-name-case* t)
...@@ -15,30 +15,6 @@ ...@@ -15,30 +15,6 @@
(eval-when (compile load eval) (eval-when (compile load eval)
(pushnew :acl86win32 *features*)) (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. ;;;; Set up translations so we can find stuff.
;;; ;;;
(setf (logical-pathname-translations "clim2") (setf (logical-pathname-translations "clim2")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment