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

(require 'asdf)

(push
  (merge-pathnames
    (make-pathname :directory '(:relative "path" "to" "lispcl-2.x.x-x"))
    (user-homedir-pathname))
  asdf:*central-registry*)

(asdf:operate 'asdf:load-op :lispcl-test)

; multiprocessing
#+(and cmu mp) (mp::startup-idle-and-top-level-loops)