#!/bin/sh 

 # Build CMUCL from source.  The intent of this script is to make it a

 # simplest case where your lisp is named cmulisp and no special

 # bootfiles are needed, you would build CMUCL using:

 #

 #

 # This will create a set of directories named build-2, build-3, and

 # build-4 and CMUCL will be built 3 consecutive times, using the

 # version of CMUCL from the previous build.

 #

 # You can control which of the builds are done by using the -1, -2, -3

 # options, but it is up to you to make sure the previous builds exist.

 #

 # A more realistic example would be

 #

 #

 # where you need to load the bootfile boot-19b.lisp and your lisp is

 #

 # For more complicated builds, you will need to run create-target.sh

 # manually, and adjust the bootstrap or setenv files by hand.  Once

 # Cross compiling is not supported with this script.  You will have to

 # do that by hand.

 #

 #

 # $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/build.sh,v 1.38 2010/11/10 19:17:55 rtoy Exp $

 #

 	(#.+ef-oc+ (%ef-octet-count ef))))

     `(setf (aref (ef-cache (find-external-format ,(ef-name ef))) ,slot)

 	 ,(subst (ef-name ef) ef

 ;;; Builtin external formats.

 (defmacro with-string-codepoint-iterator ((next string) &body body)

   _N"WITH-STRING-CODEPOINT-ITERATOR ((next string) &body body)

   provides a method of looping through a string from the beginning to

   string.  NEXT is bound to a generator macro that, within the scope

   of the invocation, returns one or two values. The first value tells

   whether any objects remain in the string. When the first value is

 (defmacro with-string-glyph-iterator ((next string) &body body)

   _N"WITH-STRING-GLYPH-ITERATOR ((next string) &body body)

   provides a method of looping through a string from the beginning to

   NEXT is bound to a generator macro that, within the scope of the

   invocation, returns one or three values. The first value tells

   whether any objects remain in the string. When the first value is

 ;;; -*- 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>.

   (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~~.

     * #398 Update mk:defsystem to v3.9.2    

     * #400 `unix-resolve-links` no longer breaks on some lengths

     * #401 `file-position` now returns the correct value

   * Other changes:

   * Improvements to the PCL implementation of CLOS:

   * Changes to building procedure:

 msgid ""

 "WITH-STRING-CODEPOINT-ITERATOR ((next string) &body body)\n"

 "  provides a method of looping through a string from the beginning to\n"

 "  string.  NEXT is bound to a generator macro that, within the scope\n"

 "  of the invocation, returns one or two values. The first value tells\n"

 "  whether any objects remain in the string. When the first value is\n"

 msgid ""

 "WITH-STRING-GLYPH-ITERATOR ((next string) &body body)\n"

 "  provides a method of looping through a string from the beginning to\n"

 "  NEXT is bound to a generator macro that, within the scope of the\n"

 "  invocation, returns one or three values. The first value tells\n"

 "  whether any objects remain in the string. When the first value is\n"