Split system definition as separate file (needed by ASDF) and added an exit statement to the standalone program

This commit is contained in:
jgarcia 2006-10-25 15:27:17 +00:00
parent 3e31b7bbfb
commit 161e5a0fe8
3 changed files with 11 additions and 19 deletions

View file

@ -0,0 +1,9 @@
;;
;; System definition used in readme.lisp
;;
(asdf:defsystem #:example
:serial t
:components ((:file "file1")
(:file "file2")))

View file

@ -7,4 +7,3 @@
(princ "Finished") (terpri)
(princ "======================================================================") (terpri)

View file

@ -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