Skip to content
Snippets Groups Projects
Commit 3a9457a8 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Move all code out of header.lisp

parent 1050e5d9
No related branches found
No related tags found
No related merge requests found
...@@ -46,40 +46,3 @@ ...@@ -46,40 +46,3 @@
;;; we can't use defsystem to compile it. Hence, all in one file. ;;; we can't use defsystem to compile it. Hence, all in one file.
#+xcvb (module ()) #+xcvb (module ())
(in-package :cl-user)
#+cmu
(eval-when (:load-toplevel :compile-toplevel :execute)
(setf ext:*gc-verbose* nil))
;;; pre 1.3.0 ABCL versions do not support the bundle-op on Mac OS X
#+abcl
(eval-when (:load-toplevel :compile-toplevel :execute)
(unless (and (member :darwin *features*)
(second (third (sys::arglist 'directory))))
(push :abcl-bundle-op-supported *features*)))
;; Punt on hard package upgrade: from ASDF1 always, and even from ASDF2 on most implementations.
(eval-when (:load-toplevel :compile-toplevel :execute)
(unless (member :asdf3 *features*)
(let* ((existing-version
(when (find-package :asdf)
(or (symbol-value (find-symbol (string :*asdf-version*) :asdf))
(let ((ver (symbol-value (find-symbol (string :*asdf-revision*) :asdf))))
(etypecase ver
(string ver)
(cons (format nil "~{~D~^.~}" ver))
(null "1.0"))))))
(first-dot (when existing-version (position #\. existing-version)))
(second-dot (when first-dot (position #\. existing-version :start (1+ first-dot))))
(existing-major-minor (subseq existing-version 0 second-dot))
(existing-version-number (and existing-version (read-from-string existing-major-minor)))
(away (format nil "~A-~A" :asdf existing-version)))
(when (and existing-version
(< existing-version-number
#+(or allegro clisp lispworks sbcl) 2.0
#-(or allegro clisp lispworks sbcl) 2.27))
(rename-package :asdf away)
(when *load-verbose*
(format t "~&; Renamed old ~A package away to ~A~%" :asdf away))))))
...@@ -64,7 +64,11 @@ ...@@ -64,7 +64,11 @@
(wait-on-semaphore (external-process-completed proc)))) (wait-on-semaphore (external-process-completed proc))))
(values (external-process-%exit-code proc) (values (external-process-%exit-code proc)
(external-process-%status proc)))))) (external-process-%status proc))))))
#+clozure (in-package :uiop/common-lisp) #+clozure (in-package :uiop/common-lisp) ;; back in this package.
#+cmucl
(eval-when (:load-toplevel :compile-toplevel :execute)
(setf ext:*gc-verbose* nil))
#+cormanlisp #+cormanlisp
(eval-when (:load-toplevel :compile-toplevel :execute) (eval-when (:load-toplevel :compile-toplevel :execute)
......
...@@ -30,7 +30,16 @@ You can compare this string with e.g.: (ASDF:VERSION-SATISFIES (ASDF:ASDF-VERSIO ...@@ -30,7 +30,16 @@ You can compare this string with e.g.: (ASDF:VERSION-SATISFIES (ASDF:ASDF-VERSIO
(cons (format nil "~{~D~^.~}" rev)) (cons (format nil "~{~D~^.~}" rev))
(null "1.0")))))) (null "1.0"))))))
;; Important: define *p-a-v* /before/ *a-v* so that it initializes correctly. ;; Important: define *p-a-v* /before/ *a-v* so that it initializes correctly.
(defvar *previous-asdf-versions* (if-let (previous (asdf-version)) (list previous))) (defvar *previous-asdf-versions*
(let ((previous (asdf-version)))
(when previous
;; Punt on hard package upgrade: from ASDF1 or ASDF2
(when (version< previous "2.27") ;; 2.27 is the first to have the :asdf3 feature.
(let ((away (format nil "~A-~A" :asdf previous)))
(rename-package :asdf away)
(when *load-verbose*
(format t "~&; Renamed old ~A package away to ~A~%" :asdf away)))))
(list previous)))
(defvar *asdf-version* nil) (defvar *asdf-version* nil)
;; We need to clear systems from versions yet older than the below: ;; We need to clear systems from versions yet older than the below:
(defparameter *oldest-forward-compatible-asdf-version* "2.33") ;; 2.32.13 renames a slot in component. (defparameter *oldest-forward-compatible-asdf-version* "2.33") ;; 2.32.13 renames a slot in component.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment