Changeset 10009


Ignore:
Timestamp:
09/23/05 13:10:35 (16 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/tests/pathname-tests.lisp

    r10008 r10009  
    44;;; warranty.
    55
    6 (defvar *ansi-tests-translations*
    7   ;; Your path may vary!
    8   '(("*.*.*" #-windows "/home/peter/gcl/ansi-tests/*.*"
    9              #+windows "c:/cygwin/home/peter/gcl/ansi-tests/*.*")))
     6;;; Define a reasonable value for this in ~/.abclrc.
     7(defvar *ansi-tests-translations*)
    108
    119(unless (member "RT" *modules* :test #'string=)
     10  (unless (boundp '*ansi-tests-translations*)
     11    (setf *ansi-tests-translations*
     12          '(("*.*.*" #-windows "/home/peter/gcl/ansi-tests/*.*"
     13                     #+windows "c:/cygwin/home/peter/gcl/ansi-tests/*.*")))
     14    (warn "~S is not defined; using ~S"
     15          '*ansi-tests-translations*
     16          *ansi-tests-translations*))
    1217  (setf (logical-pathname-translations "ansi-tests") *ansi-tests-translations*)
    1318  (load "ansi-tests:rt-package.lsp")
Note: See TracChangeset for help on using the changeset viewer.