;;; -*- mode: Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; Package: CL-USER ; buffer-read-only: t; -*-

 ;;;

 ;;; Feedback, bug reports, and patches are all welcome:

 ;;; please mail to <asdf-devel@common-lisp.net>.

   (:import-from

    #+allegro #:excl

    #+sbcl #:sb-ext

    #+ccl #:ccl

    #+lispworks #:hcl

    #-(or allegro sbcl clasp abcl ccl lispworks ecl)

   (defmacro compatfmt (format)

     #+(or gcl genera)

     #-(or gcl genera) format))

 ;;;; -------------------------------------------------------------------------

 ;;;; General Purpose Utilities for ASDF

 (in-package :uiop/version)

 (with-upgradability ()

   (defun unparse-version (version-list)

     "From a parsed version (a list of natural numbers), compute the version string"

   (defun os-unix-p ()

     "Is the underlying operating system some Unix variant?"

   (defun os-windows-p ()

     "Is the underlying operating system Microsoft Windows?"

                      (error "Could not set current directory to ~A" x))

       #+ecl (ext:chdir x)

       #+clasp (ext:chdir x t)

       #+lispworks (hcl:change-directory x)

       #+mkcl (mk-ext:chdir x)

       #+sbcl (progn (require :sb-posix) (symbol-call :sb-posix :chdir (sb-ext:native-namestring x)))

 ;;; Parsing filenames

 (with-upgradability ()

   (declaim (ftype function ensure-pathname)) ; forward reference

   (defun split-unix-namestring-directory-components

       (when p

         #+allegro

         (probe-file p :follow-symlinks truename)

         #+clisp

         #.(let* ((fs (or #-os-windows (find-symbol* '#:file-stat :posix nil)))

                  (pp (find-symbol* '#:probe-pathname :ext nil)))

                     (t '(or (and (truename* p) p)

                          (if-let (d (ensure-directory-pathname p))

                           (and (truename* d) d)))))))

         (if truename

             (probe-file p)

             (and

       (not-implemented-error 'process-info-pid)))

   (defun %process-status (process-info)

     (if-let (exit-code (slot-value process-info 'exit-code))

       (return-from %process-status

         (if-let (signal-code (slot-value process-info 'signal-code))

           (values :signaled signal-code)

           (values :exited exit-code))))

     (if-let (process (slot-value process-info 'process))

       (multiple-value-bind (status code)

           (progn

                         (symbol-call :ext '#:external-process-status process)

                         (not-implemented-error '%process-status))

             #+clozure (ccl:external-process-status process)

             #+ecl (ext:external-process-status process)

             #+lispworks

             ;; a signal is only returned on LispWorks 7+

                          ;; sb-ext:process-exit-code can also be

                          ;; called for stopped processes to determine

                          ;; the signal that stopped them

         (case status

           (:exited (setf (slot-value process-info 'exit-code) code))

           (:signaled (let ((%code (%signal-to-exit-code code)))

                        (not-implemented-error 'launch-program))

            #+clozure 'ccl:run-program

            #+(or cmucl ecl scl) 'ext:run-program

            #+lispworks ,@'('system:run-shell-command `("/usr/bin/env" ,@command)) ; full path needed

            #+mkcl 'mk-ext:run-program

            #+sbcl 'sb-ext:run-program

            ;; returns (io err pid) of which we keep io.

            (t (prop 'process io-or-pid)))))

      process-info)))

 ;;;; -------------------------------------------------------------------------

 ;;;; run-program initially from xcvb-driver.

          ;; "3.4.5.67" would be a development version in the official branch, on top of 3.4.5.

          ;; "3.4.5.0.8" would be your eighth local modification of official release 3.4.5

          ;; "3.4.5.67.8" would be your eighth local modification of development version 3.4.5.67

          (existing-version (asdf-version)))

     (setf *asdf-version* asdf-version)

     (when (and existing-version (not (equal asdf-version existing-version)))

     (setf excl:*warn-on-nested-reader-conditionals* uiop/common-lisp::*acl-warn-save*))

   #+(and allegro allegro-v10.1) ;; check for patch needed for upgradeability

     (warn 'asdf-install-warning

           :format-control "On Allegro Common Lisp 10.1, patch pma040 is ~

 needed for correct ASDF upgrading. Please update your Allegro image ~

     * Add support for Gray streams implementation of file-length via

       `ext:stream-file-length` generic function.

   * Changes:

     * The RNG has changed from an old version of xoroshiro128+ to

       xoroshiro128**.  This means sequences of random numbers will be

       different from before.  See ~~#276~~.