Commit 6fb46c57 authored by Robert Goldman's avatar Robert Goldman
Browse files

Merge branch 'allegro-resize-areas' into 'master'

Another revision of UIOP:DUMP-IMAGE for Allegro.

Closes #152

See merge request !227
parents 15ea2188 091d46f6
Loading
Loading
Loading
Loading
+14 −2
Original line number Diff line number Diff line
@@ -57,9 +57,10 @@ Build docs:

.Regression test template:
  stage: regression
  image: containers.common-lisp.net/cl-docker-images/$l:$IMAGE_TAG
  image: $IMAGE
  variables:
    IMAGE_TAG: latest
    IMAGE: containers.common-lisp.net/cl-docker-images/$l:$IMAGE_TAG
  script:
    - export l=$l$variant
    - make
@@ -87,6 +88,11 @@ Regression test:
        variant: modern
      - l: abcl
        IMAGE_TAG: 1.7.1-jdk8
      - l: allegro
        IMAGE: rpgoldman/allegro11express
      - l: allegro
        IMAGE: rpgoldman/allegro11express
        variant: modern

###############################################################################
# Upgrade tests
@@ -94,9 +100,10 @@ Regression test:

.Upgrade test template:
  stage: upgrade
  image: containers.common-lisp.net/cl-docker-images/$l:$IMAGE_TAG
  image: $IMAGE
  variables:
    IMAGE_TAG: latest
    IMAGE: containers.common-lisp.net/cl-docker-images/$l:$IMAGE_TAG
  script:
    - export l=$l$variant
    - make
@@ -120,6 +127,11 @@ Upgrade test:
      - l: allegro
        IMAGE_TAG: latest
        variant: modern
      - l: allegro
        IMAGE: rpgoldman/allegro11express
      - l: allegro
        IMAGE: rpgoldman/allegro11express
        variant: modern

# No more tests are known to fail. But leave commented out in case it needs to
# be resurrected.
+3 −0
Original line number Diff line number Diff line
@@ -2,6 +2,9 @@

(in-package :asdf-test)

#+(and allegro-version>= (version>= 11))
(uiop:quit 0)

(enable-deferred-warnings-check)

(def-test-system :unintern-foo
+8 −7
Original line number Diff line number Diff line
@@ -359,15 +359,16 @@ or COMPRESSION on SBCL, and APPLICATION-TYPE on SBCL/Windows."
    #-(or clisp clozure (and cmucl executable) lispworks sbcl scl)
    (when executable
      (not-implemented-error 'dump-image "dumping an executable"))
    #+allegro
    #+allegro ;; revised with help from Franz
    (progn
      #+(and allegro-version>= (version>= 11))
      (sys:resize-areas ;; these two are wrong, but what the heck is right?
      (sys:resize-areas
       :old :no-change :old-code :no-change
       :global-gc t
                        ;; :pack-heap t :sift-old-areas t
       :tenure t)
      #+(and allegro-version>= (not (version>= 11)))
      #+(and allegro-version>= (version= 10 1))
      (sys:resize-areas :old 10000000 :global-gc t :pack-heap t :sift-old-areas t :tenure t)
      #+(and allegro-version>= (not (version>= 10 1)))
      (sys:resize-areas :global-gc t :pack-heap t :sift-old-areas t :tenure t)
      (excl:dumplisp :name filename :suppress-allegro-cl-banner t))
    #+clisp