From 9d43a9e9dbbfeb347b5d829b3f42c48c801c99ce Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Fri, 19 Mar 2010 23:30:58 +0100
Subject: [PATCH] Update ASDF example (David Leoni)

---
 examples/asdf/example.asd |  9 ---------
 examples/asdf/readme.lisp | 10 ++++++----
 2 files changed, 6 insertions(+), 13 deletions(-)
 delete mode 100644 examples/asdf/example.asd

diff --git a/examples/asdf/example.asd b/examples/asdf/example.asd
deleted file mode 100644
index b9da7b858..000000000
--- a/examples/asdf/example.asd
+++ /dev/null
@@ -1,9 +0,0 @@
-;;
-;; System definition used in readme.lisp
-;;
-
-(asdf:defsystem #:example
-    :serial t
-    :components ((:file "file1")
-		 (:file "file2")))
-
diff --git a/examples/asdf/readme.lisp b/examples/asdf/readme.lisp
index 7f13f6467..c4e4ba308 100644
--- a/examples/asdf/readme.lisp
+++ b/examples/asdf/readme.lisp
@@ -38,10 +38,10 @@
 
 (princ "
 
-Building FASL file 'example.fas'
+Building FASL file 'example.fasb'
 
 ")
-(asdf:make-build :example :type :fasl)
+(asdf:make-build :example :type :fasl :move-here t)
 
 ;;;
 ;;; Now we load the previous file!
@@ -52,7 +52,7 @@ Building FASL file 'example.fas'
 Loading FASL file example.fas
 
 ")
-(load "example.fas")
+(load "example.fasb")
 
 ;;;
 ;;; Now that it worked, we attempt building a single program file with everything.
@@ -63,7 +63,9 @@ Loading FASL file example.fas
 Building standalone executable 'example' ('example.exe' in Windows)
 
 ")
-(asdf:make-build :example :type :program :args (list :epilogue-code '(ext:quit 0)))
+(asdf:make-build :example
+                 :type :program :epilogue-code '(ext:quit 0)
+                 :move-here t)
 
 ;;;
 ;;; Test the program