Changeset 11189


Ignore:
Timestamp:
03/05/07 02:34:05 (15 years ago)
Author:
piso
Message:

work in progress

File:
1 edited

Legend:

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

    r11187 r11189  
    3131          (time (funcall f size nvars count)))))))
    3232
    33 #+(or abcl clisp)
     33#+(or abcl sbcl clisp)
    3434(defun test-cl-ppcre ()
    3535  #+abcl (require "JVM")
     
    3838                                     #+(or windows mswindows win32)
    3939                                     #p"c:\\cygwin\\home\\peter\\cl-ppcre-1.2.19\\"))
     40    #+abcl
    4041    (map nil #'delete-file (directory "*.abcl"))
     42    #+sbcl
     43    (map nil #'delete-file (directory "*.fasl"))
    4144    (load "load.lisp")
    4245    (let ((f (find-symbol "TEST" "CL-PPCRE-TEST")))
    4346      (when f
    44         (gc)
     47        #+abcl (gc)
    4548        (time (funcall f))
    46         (gc)
     49        #+abcl (gc)
    4750        (time (funcall f))))))
    4851
Note: See TracChangeset for help on using the changeset viewer.