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

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

LispWorks?

File size: 989 bytes
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      '(("*.*.*" #-windows "/home/peter/gcl/ansi-tests/*.*"
12                 #+windows "c:/cygwin/home/peter/gcl/ansi-tests/*.*")))
13
14(defun run-ansi-tests (&optional (compile-tests t))
15  (format t "COMPILE-TESTS is ~A~%" compile-tests)
16  (let ((*default-pathname-defaults* #-windows #p"/home/peter/gcl/ansi-tests/"
17                                     #+windows #p"c:\\cygwin\\home\\peter\\gcl\\ansi-tests\\"))
18    (time (load (if compile-tests "compileit.lsp" "doit.lsp")))))
19
20#+abcl
21(autoload 'do-tests "rt.lisp")
22
23#+allegro
24(top-level:alias "ap" (arg) (apropos arg nil nil t))
25#+allegro
26(top-level:alias "de" (arg) (describe (eval arg)))
27
28#+cmu
29(setf *gc-verbose* nil)
30
31#+sbcl
32(require '#:asdf)
33#+sbcl
34(require '#:sb-aclrepl)
Note: See TracBrowser for help on using the repository browser.