bug: compiled function behaves differently than interpreted

I initially discovered this in 1.9.2 with slime and all that, but I reproduced this on a build of d0a525323b640223bacfb17cde59db995f43cce9 from GitHub with ./abcl --noinit.  I don't have a completely minimized case, but it's pretty small.

uname -a:
Darwin sew-MBA.local 24.1.0 Darwin Kernel Version 24.1.0: Thu Oct 10 21:05:14 PDT 2024; root:xnu-11215.41.3~2/RELEASE_ARM64_T8103 arm64

Reproduction:
Armed Bear Common Lisp 1.9.3-dev
Java 23.0.1 Homebrew
OpenJDK 64-Bit Server VM
Low-level initialization completed in 0.158 seconds.
Startup completed in 0.698 seconds.
Type ":help" for a list of available commands.
CL-USER(1): (setq class (jcall "arrayType" (jstatic "forPrimitiveName" "java.lang.Class" "float")))
#<java.lang.Class class [F {6290834B}>
CL-USER(2): (defun represent (class)
  (cond
    ((jcall "isPrimitive" class)
     (intern (string-upcase (jcall "getName" class)) "KEYWORD"))
    ((jcall "isArray" class)
     (list :array (represent (jcall "componentType" class))))
    (t (jcall "getName" class))))
REPRESENT
CL-USER(3): (represent class)
(:ARRAY :FLOAT)
CL-USER(4): (compile 'represent)
REPRESENT
NIL
NIL
CL-USER(5): (represent class)
:FLOAT
:EXTERNAL
CL-USER(6): 

I think the interpreted result is correct, but either way it seems like a bug that they're different.

My story gets stranger.  I tried to reproduce it with DRIBBLE (for this email) and I couldn't:


COMMON-LISP-USER> (setq class (jcall "arrayType" (jstatic "forPrimitiveName" "java.lang.Class" "float")))

#<java.lang.Class class [F {194B1E17}> 
COMMON-LISP-USER> (defun represent (class)
  (cond
    ((jcall "isPrimitive" class)
     (intern (string-upcase (jcall "getName" class)) "KEYWORD"))
    ((jcall "isArray" class)
     (list :array (represent (jcall "componentType" class))))
    (t (jcall "getName" class))))

REPRESENT 
COMMON-LISP-USER> (represent class)

(:ARRAY :FLOAT) 
COMMON-LISP-USER> (compile 'represent)

REPRESENT 
COMMON-LISP-USER> (represent class)

(:ARRAY :FLOAT) 
COMMON-LISP-USER> (dribble)


If it's any help, I tried re-implementing the function a number of ways, and this was the first one I found that didn't exhibit the problem:
(defun represent (class)
  (if (jcall "isArray" class)
      (let*((component (jcall "componentType" class))
            (mangled (represent component)))
        (list :array mangled))
      (let ((classname (jcall "getName" class)))
        (if (jcall "isPrimitive" class)
            (alexandria:make-keyword (string-upcase classname))
            (jcall "getName" class)))))

Thanks all!