kmp/build.lisp at master · MBcode/kmp · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
#| http://ap5.com/ http://ap5.com/ap5-20120509.zip
 | clisp-build.lisp -> build.lisp altered for sbcl by bobak@balisp.org
$ sbcl build.lisp recompile
Date: Sun, 15 Jun 2008 15:02:45 -0400
From: Sam Steingold <sds@gnu.org>
Subject: Re: ap5 build script

I found this script easier to use than your 2:
save it in clisp-build.lisp and run like this:
$ clisp clisp-build.lisp recompile
$ clisp clisp-build.lisp savemem
$ ./bin-2.45/ap5
|#
(format t "ext:*args* = ~a" #+clisp ext:*args*
                        #+SBCL sb-ext:*posix-argv*)

(in-package :cl-user)
(defpackage "AP5" (:use "CL") (:nicknames "ap5"))
(in-package :ap5)
(defparameter *top*
  ;or (cadr (member "top" ext:*args* :test 'string=))
  (or "/Users/bobak/dwn/lang/lsp/code/project/src/ap5/"
      (error "need ap5 directory location")))
(defparameter *liv*
  (let ((liv (lisp-implementation-version)))
    (or (cadr (member "liv" #+clisp ext:*args*
    #+SBCL sb-ext:*posix-argv* :test 'string=))
	(subseq liv 0 (position #\Space liv)))))
(defparameter *bin*
  (make-pathname
   :directory (append (pathname-directory *top*)
		      (list (concatenate 'string "bin-" *liv* #+mt "-MT")))
   :defaults *top*))
(load (merge-pathnames "source/compile-.lsp" *top*))
(setf source-default-path (merge-pathnames "source/foo.lsp" *top*)
       bin-default-path (merge-pathnames "foo.fas" *bin*))
(ensure-directories-exist bin-default-path :verbose t)

(defun recompile()(compile-ap5 :recompile t))
(defun load-save()
  (load-ap5)
  #+clisp (ext:saveinitmem (format nil "/tmp/ap5-~a~a" *liv* #+mt "MT" #-mt "")
		   :executable t :norc t :documentation "AP5")
          #+sbcl (print "save-lisp-and-die")
           )
#+ignore
(ext:fcase equal #+clisp ext:*args* #+SBCL sb-ext:*posix-argv*
   ((("recompile")) (compile-ap5 :recompile t))
   ((("savemem")) (load-ap5)
    (ext:saveinitmem (merge-pathnames "ap5" *bin*) :executable t :norc t
        :documentation "AP5"))
   ((NIL) (format t "usage: ~S [recompile|load]~%" *load-truename*))
   (t (error "invalid arguments: ~S" #+clisp ext:*args*
   #+SBCL sb-ext:*posix-argv*
   )))