Compiler bug on recursive function mixing multiple values with single values

[alejandrozf]

Hi, I just wanna put here the issue reported at https://mailman3.common-lisp.net/hyperkitty/list/[email protected]/thread/TZO5ZOTODY5TF47SBNT3UQGN54UT3GNW/

I have simplified it to this function:

Armed Bear Common Lisp 1.9.3-dev
Java 17.0.11 Eclipse Adoptium
OpenJDK 64-Bit Server VM
Low-level initialization completed in 0.177 seconds.
Startup completed in 0.914 seconds.
Loading /home/alejandrozf/.abclrc completed in 1.612 seconds.
Type ":help" for a list of available commands.
CL-USER(1): (defun represent (obj)
  (if (atom obj)
      (values obj :GD!!!)
      (list :array (represent (car obj)))))
REPRESENT
CL-USER(2): (represent '(:a))
(:ARRAY :A)
CL-USER(3): (compile 'represent)
REPRESENT
NIL
NIL
CL-USER(4): (represent '(:a))
:A
:GD!!!
CL-USER(5):