;;; -*- 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)