Split system definition as separate file (needed by ASDF) and added an exit statement to the standalone program
This commit is contained in:
parent
3e31b7bbfb
commit
161e5a0fe8
3 changed files with 11 additions and 19 deletions
9
examples/asdf/example.asd
Normal file
9
examples/asdf/example.asd
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
;;
|
||||
;; System definition used in readme.lisp
|
||||
;;
|
||||
|
||||
(asdf:defsystem #:example
|
||||
:serial t
|
||||
:components ((:file "file1")
|
||||
(:file "file2")))
|
||||
|
||||
|
|
@ -7,4 +7,3 @@
|
|||
(princ "Finished") (terpri)
|
||||
|
||||
(princ "======================================================================") (terpri)
|
||||
|
||||
|
|
|
|||
|
|
@ -18,10 +18,9 @@
|
|||
|
||||
(require 'asdf)
|
||||
(require 'cmp)
|
||||
(use-package :asdf)
|
||||
|
||||
(setf *load-verbose* nil)
|
||||
(setf c::*compile-verbose* nil)
|
||||
(setf *compile-verbose* nil)
|
||||
(setf c::*suppress-compiler-warnings* t)
|
||||
(setf c::*suppress-compiler-notes* t)
|
||||
|
||||
|
|
@ -32,21 +31,6 @@
|
|||
;;;
|
||||
;;(trace c::builder)
|
||||
|
||||
;;;
|
||||
;;; Next we create a definition containing the files in our project.
|
||||
;;; Notice that file2.lisp depends on file1.lisp, hence the ":serial t"
|
||||
;;;
|
||||
(princ "
|
||||
|
||||
Loading definition file.
|
||||
|
||||
")
|
||||
|
||||
(defsystem #:example
|
||||
:serial t
|
||||
:components ((:file "file1")
|
||||
(:file "file2")))
|
||||
|
||||
;;;
|
||||
;;; Now we attempt building a single FASL file containing all those files.
|
||||
;;; Notice that we remove any previous fasl file.
|
||||
|
|
@ -79,7 +63,7 @@ Loading FASL file example.fas
|
|||
Building standalone executable 'example' ('example.exe' in Windows)
|
||||
|
||||
")
|
||||
(asdf:make-build :example :type :program)
|
||||
(asdf:make-build :example :type :program :args (list :epilogue-code '(ext:quit 0)))
|
||||
|
||||
;;;
|
||||
;;; Test the program
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue