;; -*- mode: lisp -*-

(in-package :cl-user)

#-quicklisp
(let ((quicklisp-init (merge-pathnames "src/lisp/quicklisp/setup.lisp"
                                       (user-homedir-pathname))))
  (when (probe-file quicklisp-init)
    (load quicklisp-init)))

(defparameter cl-user::*cl*-dependencies*
  '(;; Language extensions
    :closer-mop
    :trivial-cltl2
    :defstar
    :defclass-std
    :named-readtables
    :trivia
    :anaphora
    :fn

    ;; Utilites
    :alexandria
    :serapeum
    :uiop
    :cl-ppcre
    :split-sequence
    :trivial-types
    :parse-number))

(defparameter cl-user::*cl*-used-packages*
  '(:closer-common-lisp
    :defstar
    :fn
    :defclass-std
    :named-readtables))

(defparameter cl-user::*cl*-imported-packages*
  '(:alexandria-2
    :serapeum
    :uiop
    :trivia
    :anaphora
    :ppcre
    :trivial-types
    :parse-number))

(when (asdf:find-system :clstar nil)
  (asdf:load-system :clstar))

#+cl*
(in-package :cl*-user)
#+cl*
(toggle-pretty-print-hash-table t)
#+cl*
(setf *language-extensions*
      (dict :april '(:april :april)
            :apl   '(:april :april)
            :json '(:shasht nil)
            :http '((:dexador :quri) nil)
            :imm '((:modf :fset) nil)
            :cli '((:clingon :clesh) (:clingon :clesh))
            :series '(:series :series)))