Show
Ignore:
Timestamp:
07/25/08 18:46:19 (4 months ago)
Author:
hans
Message:

Revive cmucl support for BOS.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/build.lisp

    r3619 r3644  
    22(in-package :cl-user) 
    33 
    4 #+cmu(load (compile-file "../../bknr/patches/patch-around-mop-cmucl19a.lisp")) 
     4#+sbcl (require 'asdf) 
     5#+sbcl (require 'sb-posix) 
    56 
    6 #+sbcl(require 'asdf) 
    7 #+sbcl(require 'sb-posix) 
    8  
    9 #+sbcl(assert (eql sb-impl::*default-external-format* :utf-8)) 
     7#+sbcl (assert (eql sb-impl::*default-external-format* :utf-8)) 
     8#+cmu 
     9(setf stream:*default-external-format* :utf-8 
     10      ext:*gc-verbose* nil 
     11      *compile-print* nil 
     12      ext:*bytes-consed-between-gcs* (* 64 1024 1024) 
     13      *default-pathname-defaults* (pathname (format nil "~A/" (nth-value 1 (unix:unix-current-directory))))) 
    1014 
    1115(load (compile-file "../../thirdparty/asdf/asdf.lisp")) 
    1216 
    1317;; cl-gd glue 
    14 #+darwin(assert (zerop (asdf:run-shell-command "cd ../../thirdparty/cl-gd-0.5.6; make cl-gd-glue.dylib"))) 
    15 #-darwin(assert (zerop (asdf:run-shell-command "cd ../../thirdparty/cl-gd-0.5.6; make"))) 
     18#+darwin (assert (zerop (asdf:run-shell-command "cd ../../thirdparty/cl-gd-0.5.6; make cl-gd-glue.dylib"))) 
     19#-darwin (assert (zerop (asdf:run-shell-command "cd ../../thirdparty/cl-gd-0.5.6; make"))) 
    1620 
    1721;;; some helpers 
    …… 
    2327                     asdf:*central-registry* 
    2428                     :test #'equal)) 
    25         (directory #p"../../**/*.asd"))) 
     29        (directory (merge-pathnames #p"**/*.asd" (truename "../../"))))) 
    2630 
    2731(defun read-configuration (pathname) 
    …… 
    3842(asdf:oos 'asdf:load-op :bos.web) 
    3943 
     44#+sbcl 
    4045(defvar *sbcl-home* (sb-int:sbcl-homedir-pathname)) 
    4146 
     47#+sbcl 
    4248(defun ensure-sbcl-home () 
    4349  (sb-posix:putenv (format nil "SBCL_HOME=~a" *sbcl-home*))) 
    4450 
    4551(defun env-ascii-check () 
    46   #+sbcl(assert (block top 
    47                   (dolist (string (posix-environ) t) 
    48                     (loop for ch across string 
    49                        unless (< 0 (char-code ch) 128) 
    50                        do (return-from top nil)))) 
    51                 nil 
    52                 "We will have a problem if your environment contains anything else than ASCII characters.~ 
     52  #+sbcl 
     53  (assert (block top 
     54            (dolist (string (posix-environ) t) 
     55              (loop for ch across string 
     56                 unless (< 0 (char-code ch) 128) 
     57                 do (return-from top nil)))) 
     58          nil 
     59          "We will have a problem if your environment contains anything else than ASCII characters.~ 
    5360             ~%So I'd like to enforce this here.")) 
    5461 
    5562(defun start (&key (swank-port 4005)) 
    56   (ensure-sbcl-home) 
     63  #+sbcl (ensure-sbcl-home) 
    5764  (env-ascii-check) 
    5865  ;; check for changes that are not yet in the core 
    …… 
    7380  (bos.web::start-contract-tree-image-update-daemon) 
    7481  (bos.m2::start-postmaster) 
    75   (bknr.cron::start-cron)) 
     82  (bknr.cron::start-cron) 
     83  #+(and cmu mp) 
     84  (mp::startup-idle-and-top-level-loops)) 
    7685 
    7786(defun start-cert-daemon ()