(in-package :common-lisp)

(load "~/quicklisp/setup.lisp")

(unless *load-truename*
  (error "This file must be LOADed to set up CL-Frolov."))

(defvar *clf-home*
  (make-pathname :name nil :type nil
                 :defaults *load-truename*))

(push (merge-pathnames *clf-home* "systems/") asdf:*central-registry*)
(push "/usr/share/common-lisp/source/alexandria/" asdf:*central-registry*)
;(push "/home/freehck/quicklisp/dists/quicklisp/software/gsll-20140211-git" asdf:*central-registry*)

; если у меня руки дойдёт вычислять производные автоматически
;(push "/home/freehck/prog/maxima-5.35.1/src/" asdf:*central-registry*)
;(asdf:load-system :maxima)

(ql:quickload "cl-ana")


(asdf::load-asd "clf.asd")
;(asdf::load-asd "alexandria.asd")

(asdf:load-system :alexandria)
(asdf:load-system :gsll)
(asdf:load-system :cl-ana)
(asdf:load-system :clf)