;;; -*- Mode: Lisp -*- ;;; See also: ;;; .clinit.cl (Allegro) ;;; .cmucl-init.lisp (CMUCL) ;;; .sbclrc (SBCL) ;;; .clisprc.lisp (CLISP) ;;; .lispworks (LispWorks) (setf (logical-pathname-translations "ansi-tests") '(("*.*.*" #-(or windows mswindows win32) "/home/peter/gcl/ansi-tests/*.*" #+(or windows mswindows win32) "c:/cygwin/home/peter/gcl/ansi-tests/*.*"))) (defun run-ansi-tests (&optional (compile-tests t)) (format t "COMPILE-TESTS is ~A~%" compile-tests) (let ((*default-pathname-defaults* #-(or windows mswindows win32) #p"/home/peter/gcl/ansi-tests/" #+(or windows mswindows win32) #p"c:\\cygwin\\home\\peter\\gcl\\ansi-tests\\")) #+(and abcl unix) (run-shell-command "make clean" :directory *default-pathname-defaults*) (time (load (if compile-tests "compileit.lsp" "doit.lsp"))))) #+abcl (autoload 'do-tests "rt.lisp") #+allegro (top-level:alias "ap" (arg) (apropos arg nil nil t)) #+allegro (top-level:alias "de" (arg) (describe (eval arg))) #+cmu (setf *gc-verbose* nil) #+sbcl (require '#:asdf) #+sbcl (require '#:sb-aclrepl)