Open
Description
Hi, I just wanna put here the issue reported at https://mailman3.common-lisp.net/hyperkitty/list/armedbear-devel@common-lisp.net/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):
Metadata
Metadata
Assignees
Labels
No labels