Commit | Line | Data |
---|---|---|
171bbab3 RD |
1 | (in-package :parenscript) |
2 | ||
3 | (defmethod setup-compilation-environment ((comp-env compilation-environment)) | |
4 | (install-standard-script-packages comp-env) | |
5 | (setf (comp-env-current-package comp-env) | |
6 | (find-script-package :parenscript-user comp-env)) | |
7 | comp-env) | |
8 | ||
9 | (defparameter *javascript-exports* | |
10 | (append | |
11 | nil | |
12 | cl-user::*shared-symbols-ps-js*)) | |
13 | ||
14 | (defparameter *parenscript-exports* | |
15 | (append | |
16 | *javascript-exports* | |
17 | cl-user::*parenscript-lang-exports* | |
18 | nil | |
19 | )) | |
20 | ||
06babcf5 VS |
21 | (defgeneric install-standard-script-packages (comp-env) |
22 | (:documentation "Creates standard script packages and installs them in the current compilation | |
23 | environment.")) | |
24 | ||
171bbab3 RD |
25 | (defmethod install-standard-script-packages ((comp-env compilation-environment)) |
26 | (list | |
27 | (create-script-package | |
28 | comp-env | |
29 | :name "KEYWORD" :lisp-package :keyword) | |
30 | (create-script-package | |
31 | comp-env | |
32 | :name "GLOBAL" :lisp-package :parenscript.global) | |
905f534e | 33 | ;; symbols in the parenscript, javascript and parenscript-user packages are non-prefixed |
171bbab3 RD |
34 | (create-script-package |
35 | comp-env | |
905f534e | 36 | :name "JAVASCRIPT" :prefix "" :nicknames (list "JS") :lisp-package :parenscript.javascript |
171bbab3 RD |
37 | :exports *javascript-exports* |
38 | :secondary-lisp-packages '(:common-lisp)) | |
39 | (create-script-package | |
40 | comp-env | |
905f534e | 41 | :name "PARENSCRIPT" :prefix "" :lisp-package :parenscript |
171bbab3 RD |
42 | :exports *parenscript-exports* |
43 | :used-packages '(:javascript) | |
44 | ) | |
45 | (create-script-package | |
46 | comp-env | |
905f534e | 47 | :name "PARENSCRIPT-USER" :prefix "" :lisp-package :parenscript-user |
171bbab3 RD |
48 | :secondary-lisp-packages (list :cl-user) |
49 | :used-packages '("PARENSCRIPT") | |
905f534e VS |
50 | :nicknames '("PS-USER" "PAREN-USER")) |
51 | (create-script-package | |
52 | comp-env | |
8723dc34 VS |
53 | :name "PS_GS" :lisp-package :parenscript.ps-gensyms) |
54 | (create-script-package | |
55 | comp-env | |
56 | :name "UNINTERNED" :prefix ""))) |