Changeset 15708 for release/1.9/source/lib/compile-ccl.lisp
- Timestamp:
- Feb 15, 2013, 8:00:01 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/1.9/source/lib/compile-ccl.lisp
r15412 r15708 591 591 (when full 592 592 (setq clean t kernel t reload t)) 593 594 593 (when update 595 594 (multiple-value-bind (changed conflicts new-binaries) … … 621 620 "ccl:**;"))) 622 621 (delete-file f))) 622 (with-global-optimization-settings () 623 (compile-ccl (not (null force))) 624 (if force (xload-level-0 :force) (xload-level-0))) 623 625 (when kernel 624 626 (when (or clean force) … … 632 634 (format t "~&;Building lisp-kernel ...") 633 635 (with-output-to-string (s) 634 635 636 637 638 636 (let* ((proc (run-program (make-program) 637 (list "-k" "-C" 638 (format nil "lisp-kernel/~a" 639 (kernel-build-directory)) 640 "-j" 639 641 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)))))))) 661 660 (when reload 662 661 (with-input-from-string (cmd (format nil 663 664 662 "(save-application ~s)" 663 (standard-image-name))) 665 664 (with-output-to-string (output) 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 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))))))) 688 687 (when exit 689 688 (quit)))
Note: See TracChangeset
for help on using the changeset viewer.