class.lisp
16 lines
| 789 B
| text/x-common-lisp
|
CommonLispLexer
/ src / class.lisp
r11 | ||||
r49 | (in-package txt2web) | |||
r11 | ||||
(defclass compiler () | ||||
r23 | ((body :accessor body :initform #.(load-src "extras/body.html")) | |||
(css :accessor css :initform (list #.(load-src "extras/default.css"))) | ||||
r61 | (ast :accessor ast :initform nil) | |||
r25 | (js :accessor js :initform (reverse | |||
(list | ||||
r46 | '#.(read-progn-from-string (load-src "src/main.ps")) | |||
'#.(read-progn-from-string (load-src "src/api.ps")) | ||||
'#.(read-progn-from-string (load-src "src/intrinsics.ps"))))) | ||||
r61 | (parse :accessor parse-only :initarg :parse) | |||
r11 | (compile :accessor compile-only :initarg :compile) | |||
(target :accessor target :initarg :target) | ||||
(beautify :accessor beautify :initarg :beautify))) | ||||