source: trunk/abcl/examples/misc/dotabclrc @ 14085

Last change on this file since 14085 was 14085, checked in by Mark Evenson, 8 years ago

examples/misc: fix installation of Quicklisp from scratch.

File size: 3.4 KB
Line 
1;;; -*- Mode: Lisp -*-
2
3;;; Possible code for inclusion in the Armed Bear startup file #p"~/.abclrc"
4
5#-quicklisp
6(let ((quicklisp-local  #P"~/quicklisp/setup.lisp")
7      (quicklisp-remote #p"http://beta.quicklisp.org/quicklisp.lisp"))
8  (unless (probe-file quicklisp-local)
9    (when (probe-file quicklisp-remote)     ;;; XXX possibly search for a proxy÷
10      (load quicklisp-remote)
11      (funcall (intern (symbol-name 'install) :quicklisp-quickstart))))
12  (when (probe-file quicklisp-local)
13    (load quicklisp-local)))
14
15;;
16(require :asdf)
17(require :abcl-contrib)
18(require :abcl-asdf)
19(setf abcl-asdf::*maven-http-proxy* "http://localhost:3128/")
20
21;;; Customize the procedure used by CL:DISASSEMBLE
22(setf *disassembler*       
23      (let ((strategies (list (lambda (p)
24                                (let ((class (make-pathname :name (pathname-name p)))
25                                      (path (directory-namestring p)))
26                                  (format nil "javap -c -l -verbose -classpath ~A ~A" path class)))
27                              "/Users/evenson/bin/jad -a -p"
28                              (lambda (p)
29                                (format nil "java -jar ~
30/Users/evenson/work/classfileanalyzer/classfileanalyzer.jar ~A"
31                                        p)))))
32          (first strategies)))
33
34(defparameter *ansi-tests-directory*
35  #-(or windows mswindows win32)
36  #p"/home/peter/xcl/x/ansi-tests/"
37  #+(or windows mswindows win32)
38  #p"c:\\msys\\1.0\\home\\peter\\xcl\\x\ansi-tests\\")
39
40(defun run-ansi-tests (&optional (compile-tests t))
41  (format t "COMPILE-TESTS is ~A~%" compile-tests)
42  (let ((*default-pathname-defaults* *ansi-tests-directory*))
43    #+(and abcl unix)
44    (run-shell-command "make clean" :directory *default-pathname-defaults*)
45    (time (load (if compile-tests "compileit.lsp" "doit.lsp")))))
46
47(defun run-random-tests (size nvars count)
48  (let ((*default-pathname-defaults* *ansi-tests-directory*))
49    (load "gclload1.lsp")
50    (load "random-int-form.lsp")
51    (let ((f (find-symbol "TEST-RANDOM-INTEGER-FORMS" "CL-TEST")))
52      (when f
53        (let (#+abcl (*suppress-compiler-warnings* t)
54              (*random-state* (make-random-state t)))
55          (time (funcall f size nvars count)))))))
56
57#+(or abcl sbcl clisp)
58(defun test-cl-ppcre ()
59  #+abcl (require "JVM")
60  (let ((*default-pathname-defaults* #-(or windows mswindows win32)
61                                     #p"/home/peter/cl-ppcre-1.2.19/"
62                                     #+(or windows mswindows win32)
63                                     #p"c:\\cygwin\\home\\peter\\cl-ppcre-1.2.19\\"))
64    #+abcl
65    (map nil #'delete-file (directory "*.abcl"))
66    #+sbcl
67    (map nil #'delete-file (directory "*.fasl"))
68    (load "load.lisp")
69    (let ((f (find-symbol "TEST" "CL-PPCRE-TEST")))
70      (when f
71        #+abcl (gc)
72        (time (funcall f))
73        #+abcl (gc)
74        (time (funcall f))))))
75
76#+abcl
77(defun run-other-tests ()
78  (test-cl-ppcre)
79  (let ((*default-pathname-defaults* "/home/peter/salza-0.7.2/"))
80    (map nil #'delete-file (directory "*.abcl"))
81    (load "/home/peter/test-salza.lisp")
82    (gc)
83    (test-salza)
84    (gc)
85    (test-salza)))
86
87#+abcl
88(autoload 'do-tests "rt.lisp")
89
90#+allegro
91(top-level:alias "ap" (arg) (apropos arg nil nil t))
92#+allegro
93(top-level:alias "de" (arg) (describe (eval arg)))
94
95#+cmu
96(setf *gc-verbose* nil)
97
98;; #+sbcl
99;; (require '#:asdf)
100;; #+sbcl
101;; (require '#:sb-aclrepl)
Note: See TracBrowser for help on using the repository browser.