;;; -*- Mode: LISP; Syntax: Common-lisp; Package: USER; Base: 10 -*-

(in-package :user)

;; Get clos if it's not there.  I'm not using a reader macro for the
;; CLOS feature to guard against this file getting compiled.  -- PAO
;; Even better reason: there is no CLOS feature.  -- PAO 6/03/92 10:39:56
;; Well, I guess it's there in Lucid, but it's not portable.  -- PAO 6/03/92 10:46:20
#+lucid
(when (not (member "CLOS" *features* :test #'string-equal))
  (cond ((and (or (string-equal (lisp-implementation-version) "4.0")
		  (string-equal (lisp-implementation-version) "4.0.1"))
	      (load "/src/lisp/lucid-4.0/sun4/clos"
		    :if-does-not-exist nil)))
	((and (string-equal (lisp-implementation-version) "4.0.2")
	      (load "/src/lisp/lucid-4.0.2/clos"
		    :if-does-not-exist nil)))
	(t
	 (cerror "Continue anyway."
		 "This system needs CLOS, which isn't loaded, and I can't find it.  You will lose."))))

(defun ssp (path) (merge-pathnames path (make-pathname :host "mw")))

(require "DEFINE-SYSTEM" (ssp "/projects/vision/code/tools/define-system"))

(hst:load-system-definition :vu (ssp "/projects/vision/code/tools/VU/system.lisp"))
(hst:load-system-definition :cmv (ssp "/projects/vision/code/VM/cmv/defsystem.lisp"))
(hst:load-system-definition :mike-utils7
			    (ssp "/projects/vision/code/stereo/VM/utils/defsystem.lisp"))
(hst:load-system-definition :mike-starlisp7
			    (ssp "/projects/vision/code/stereo/VM/starlisp/defsystem.lisp"))
(hst:load-system-definition :mike-stereo7
			    (ssp "/projects/vision/code/stereo/VM/stereo/defsystem.lisp"))

(load (ssp "/projects/vision/code/grab/load-grab"))
(hst:load-system :vu)
(hst:load-system :cmv)
;;(hst:load-system :mike-stereo7)