Ignore:
Timestamp:
10/08/05 03:38:23 (16 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/examples/.abclrc

    r10043 r10087  
    99
    1010(setf (logical-pathname-translations "ansi-tests")
    11       '(("*.*.*" #-windows "/home/peter/gcl/ansi-tests/*.*"
    12                  #+windows "c:/cygwin/home/peter/gcl/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/*.*")))
    1315
    1416(defun run-ansi-tests (&optional (compile-tests t))
    1517  (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  (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\\"))
    1822    (time (load (if compile-tests "compileit.lsp" "doit.lsp")))))
    1923
Note: See TracChangeset for help on using the changeset viewer.