source: branches/portable/load-wood.lisp@ 31

;;;-*- Mode: Lisp; -*-

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; load-wood.lisp
;; Load this file and evaluate (cl-user::load-wood)
;;
;; Portions Copyright © 2006 Clozure Associates and Anvita eReference (www.Anvita.info)
;; Copyright © 1996 Digitool, Inc.
;; Copyright © 1992-1995 Apple Computer, Inc.
;; All rights reserved.
;; Permission is given to use, copy, and modify this software provided
;; that Digitool is given credit in all derivative works.
;; This software is provided "as is". Digitool makes no warranty or
;; representation, either express or implied, with respect to this software,
;; its quality, accuracy, merchantability, or fitness for a particular
;; purpose.
;;

(in-package :cl-user)

(defun load-quicklisp ()
  (unless (find-package "QUICKLISP")
    (cond ((probe-file "~/quicklisp/setup.lisp")
           (load "~/quicklisp/setup"))
          (t (format t "Installing Quicklisp...")
             (load "http://beta.quicklisp.org/quicklisp.lisp")
             (funcall (find-symbol "INSTALL" :quicklisp-quickstart))))))

(defun ql (system)
  (funcall (find-symbol "QUICKLOAD" :ql) system :verbose t))

(defun load-wood (&optional test-too?)
  (load-quicklisp)
  (load (merge-pathnames "wood.asd" *load-pathname*))
  (ql (if test-too? :wood-test :wood)))