source: trunk/j/examples/.abclrc @ 10087

Last change on this file since 10087 was 10087, checked in by piso, 16 years ago

Work in progress.

File size: 1.2 KB
Line 
1;;; -*- Mode: Lisp -*-
2
3;;; See also:
4;;;   .clinit.cl         (Allegro)
5;;;   .cmucl-init.lisp   (CMUCL)
6;;;   .sbclrc            (SBCL)
7;;;   .clisprc.lisp      (CLISP)
8;;;   .lispworks         (LispWorks)
9
10(setf (logical-pathname-translations "ansi-tests")
11      '(("*.*.*" #-(or windows mswindows win32)
12                 "/home/peter/gcl/ansi-tests/*.*"
13                 #+(or windows mswindows win32)
14                 "c:/cygwin/home/peter/gcl/ansi-tests/*.*")))
15
16(defun run-ansi-tests (&optional (compile-tests t))
17  (format t "COMPILE-TESTS is ~A~%" compile-tests)
18  (let ((*default-pathname-defaults* #-(or windows mswindows win32)
19                                     #p"/home/peter/gcl/ansi-tests/"
20                                     #+(or windows mswindows win32)
21                                     #p"c:\\cygwin\\home\\peter\\gcl\\ansi-tests\\"))
22    (time (load (if compile-tests "compileit.lsp" "doit.lsp")))))
23
24#+abcl
25(autoload 'do-tests "rt.lisp")
26
27#+allegro
28(top-level:alias "ap" (arg) (apropos arg nil nil t))
29#+allegro
30(top-level:alias "de" (arg) (describe (eval arg)))
31
32#+cmu
33(setf *gc-verbose* nil)
34
35#+sbcl
36(require '#:asdf)
37#+sbcl
38(require '#:sb-aclrepl)
Note: See TracBrowser for help on using the repository browser.