blob: 589096aacab4e469a0f67bb52604b30cc7ae8ad7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
;; -*- 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
:filtered-functions
:ppcre
:trivial-types
:parse-number))
(when (asdf:find-system :clstar nil)
(ql:quickload :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)))
|
