Commit 343f8f2b authored by Robert Goldman's avatar Robert Goldman
Browse files

Another revision of UIOP:DUMP-IMAGE for Allegro.

Based on further discussions with Duane Rettig and Kevin Layer at Franz.
parent 82228090
Loading
Loading
Loading
Loading
+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