Ignore:
Timestamp:
Feb 15, 2013, 8:00:01 AM (6 years ago)
Author:
gb
Message:

Propagate r15707 to 1.9.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.9/source/lib/compile-ccl.lisp

    r15412 r15708  
    591591    (when full
    592592      (setq clean t kernel t reload t))
    593 
    594593    (when update
    595594      (multiple-value-bind (changed conflicts new-binaries)
     
    621620                            "ccl:**;")))
    622621                 (delete-file f)))
     622             (with-global-optimization-settings ()
     623               (compile-ccl (not (null force)))
     624               (if force (xload-level-0 :force) (xload-level-0)))
    623625             (when kernel
    624626               (when (or clean force)
     
    632634               (format t "~&;Building lisp-kernel ...")
    633635               (with-output-to-string (s)
    634                                       (let* ((proc (run-program (make-program)
    635                                                                 (list "-k" "-C"
    636                                                                       (format nil "lisp-kernel/~a"
    637                                                                               (kernel-build-directory))
    638                                                                       "-j"
     636                 (let* ((proc (run-program (make-program)
     637                                           (list "-k" "-C"
     638                                                 (format nil "lisp-kernel/~a"
     639                                                         (kernel-build-directory))
     640                                                 "-j"
    639641                                                           
    640                                                                       (format nil "~d" (1+ (cpu-count))))
    641                                                                 :output s
    642                                                                 :error :output)))
    643                                         (multiple-value-bind (status exit-code)
    644                                             (external-process-status proc)
    645                                           (if (and (eq :exited status) (zerop exit-code))
    646                                             (progn
    647                                               (format t "~&;Kernel built successfully.")
    648                                               (when verbose
    649                                                 (format t "~&;kernel build output:~%~a"
    650                                                         (get-output-stream-string s)))
    651                                               (sleep 1))
    652                                             (error "Error(s) during kernel compilation.~%~a"
    653                                                    (or
    654                                                     (describe-external-process-failure
    655                                                      proc
    656                                                      "Developer tools may not be installed correctly.")
    657                                                     (get-output-stream-string s))))))))
    658              (with-global-optimization-settings ()
    659                (compile-ccl (not (null force)))
    660                (if force (xload-level-0 :force) (xload-level-0)))
     642                                                 (format nil "~d" (1+ (cpu-count))))
     643                                           :output s
     644                                           :error :output)))
     645                   (multiple-value-bind (status exit-code)
     646                       (external-process-status proc)
     647                     (if (and (eq :exited status) (zerop exit-code))
     648                       (progn
     649                         (format t "~&;Kernel built successfully.")
     650                         (when verbose
     651                           (format t "~&;kernel build output:~%~a"
     652                                   (get-output-stream-string s)))
     653                         (sleep 1))
     654                       (error "Error(s) during kernel compilation.~%~a"
     655                              (or
     656                               (describe-external-process-failure
     657                                proc
     658                                "Developer tools may not be installed correctly.")
     659                               (get-output-stream-string s))))))))
    661660             (when reload
    662661               (with-input-from-string (cmd (format nil
    663                                                     "(save-application ~s)"
    664                                                     (standard-image-name)))
     662                                              "(save-application ~s)"
     663                                              (standard-image-name)))
    665664                 (with-output-to-string (output)
    666                                         (multiple-value-bind (status exit-code)
    667                                             (external-process-status
    668                                              (run-program
    669                                               (format nil "./~a" (standard-kernel-name))
    670                                               (list* "--image-name" (standard-boot-image-name)
    671                                                      "--batch"
    672                                                      reload-arguments)
    673                                               :input cmd
    674                                               :output output
    675                                               :error output))
    676                                           (if (and (eq status :exited)
    677                                                    (eql exit-code 0))
    678                                             (progn
    679                                               (format t "~&;Wrote heap image: ~s"
    680                                                       (truename (format nil "ccl:~a"
    681                                                                         (standard-image-name))))
    682                                               (when verbose
    683                                                 (format t "~&;Reload heap image output:~%~a"
    684                                                         (get-output-stream-string output))))
    685                                             (error "Errors (~s ~s) reloading boot image:~&~a"
    686                                                    status exit-code
    687                                                    (get-output-stream-string output)))))))
     665                   (multiple-value-bind (status exit-code)
     666                       (external-process-status
     667                        (run-program
     668                         (format nil "./~a" (standard-kernel-name))
     669                         (list* "--image-name" (standard-boot-image-name)
     670                                "--batch"
     671                                reload-arguments)
     672                         :input cmd
     673                         :output output
     674                         :error output))
     675                     (if (and (eq status :exited)
     676                              (eql exit-code 0))
     677                       (progn
     678                         (format t "~&;Wrote heap image: ~s"
     679                                 (truename (format nil "ccl:~a"
     680                                                   (standard-image-name))))
     681                         (when verbose
     682                           (format t "~&;Reload heap image output:~%~a"
     683                                   (get-output-stream-string output))))
     684                       (error "Errors (~s ~s) reloading boot image:~&~a"
     685                              status exit-code
     686                              (get-output-stream-string output)))))))
    688687             (when exit
    689688               (quit)))
Note: See TracChangeset for help on using the changeset viewer.