Ah, sim:
> (defun robust-adjust-array (array size &key (element-type nil))
> (let ((type (if (null element-type)
> `(array-element-type ,array) ;;; <=== Aqui
> element-type)))
Esta parte não funciona (o Spartns não usa, por isso nunca notei).
O certo é
(let ((type (if (null element-type)
(array-element-type array) ;;; <== Versão correta
element-type)))
J.
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"Lisp-br" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/lisp-br?hl=en
-~----------~----~----~----~------~----~------~--~---
