Another stepper contrib for ABCL! (this time for compiled code)

.github/workflows/abcl-test.yml

@@ -68,12 +68,15 @@ jobs:
       - name: Test ABCL-CONTRIB
         run: ./abcl --batch --load ./ci/test-abcl-contrib.lisp --load ./ci/test-abcl-introspect.lisp
 
+      - name: Test ABCL-JVM-STEPPER
+        run: ./abcl --batch --load ./ci/test-abcl-jvm-stepper.lisp
+
       - name: Test Jeannie
         run: ./abcl --batch --load ./ci/ensure-maven.lisp --load ./ci/test-jeannie.lisp
 
       - name: Test NONTRIVIAL-GRAY-STREAMS
         run: ./abcl --batch --load ./ci/ensure-maven.lisp --load ./ci/test-nontrivial-gray-streams.lisp
-        
+
       - name: Test CFFI
         run: ./abcl --batch --load ./ci/ensure-maven.lisp --load ./ci/test-cffi.lisp
 

.travis.yml

@@ -76,6 +76,7 @@ script:
   - ${ABCL_ROOT}/abcl --batch --load ${ABCL_ROOT}/ci/test-abcl-prove.lisp
   - ${ABCL_ROOT}/abcl --batch --load ${ABCL_ROOT}/ci/test-abcl.lisp
   - ${ABCL_ROOT}/abcl --batch --load ${ABCL_ROOT}/ci/test-abcl-introspect.lisp
+  - ${ABCL_ROOT}/abcl --batch --load ${ABCL_ROOT}/ci/test-abcl-jvm-stepper.lisp
   - ${ABCL_ROOT}/abcl --batch --load ${ABCL_ROOT}/ci/test-jeannie.lisp
   - ${ABCL_ROOT}/abcl --batch --load ${ABCL_ROOT}/ci/test-cffi.lisp
   - ${ABCL_ROOT}/abcl --batch --load ${ABCL_ROOT}/ci/test-static-vectors.lisp

ci/test-abcl-jvm-stepper.lisp

@@ -0,0 +1,43 @@
+(require :asdf)
+
+(require :abcl-contrib)
+
+(asdf:make :quicklisp-abcl)
+
+;; test for the correct loading of ABCL-JVM-STEPPER and make sure it can also instrument correctly the code
+(require :abcl-jvm-stepper)
+
+(progn (defun loop-1 (a b)
+         (loop :for i :below a
+               :collect (list a b)))
+
+       (defun loop-2 (a)
+         (loop :for i :below a
+               :collect i))
+
+       (defun loop-3 (n &optional (times 1))
+         (loop :for i :below times
+               :collect times)
+         (loop-4 (+ n times)))
+
+       (defun loop-4 (k)
+         (loop :for i :below k
+               :collect (cons (/ i k) (+ i k))))
+
+       (defun test-next (n)
+         (loop-1 (1+ n) n)
+         (loop-2 (1- n))
+         (loop-3 n 3)
+         ;; quit (q) here
+         (defparameter *test-next-var* (loop :for i :below 7
+                                             :collect i))))
+
+(progn (jstepper:instrument-compile-function 'loop-1)
+       (jstepper:instrument-compile-function 'loop-2)
+       (jstepper:instrument-compile-function 'loop-3)
+       (jstepper:instrument-compile-function 'loop-4)
+       (jstepper:instrument-compile-function 'test-next))
+
+(ql:quickload :alexandria)
+
+(jstepper:instrument-compile-call (asdf:load-system :alexandria :force t))