add GC for QGET, QFUN return values; fix possible memory leaks (e.g. overridden metho...
[eql:eql.git] / examples / 9-simple-lisp-editor / make-editor-fasl.lisp
1 (unless (find-package :eql)
2   (error "Please use the EQL executable"))
3
4 (require :cmp)
5
6 (setf *break-on-signals* 'error)
7
8 (unless (find-package :c)
9   (make-package :c))
10
11 (defparameter *lisp-files* '(;;"data/auto-indent"
12                              ;;"data/eql-keywords"
13                              ;;"data/lisp-keywords"
14                              "local-client"
15                              "settings"
16                              "editor"))
17
18 (dolist (f *lisp-files*)
19   (let ((file (format nil "~A.lisp" f)))
20     (load file)
21     (compile-file file :system-p t)))
22
23 (c:build-fasl "eql-editor"
24               :lisp-files (mapcar (lambda (file)
25                                     (format nil "~A.~A" file #+msvc "obj" #-msvc "o"))
26                                   *lisp-files*))
27
28 (dolist (file *lisp-files*)
29   (delete-file (format nil "~A.~A" file #+msvc "obj" #-msvc "o")))
30
31 (eql:qq)