Re: GSOC | Extending Common Lisp support

[Charles Turner <chturne at gmail dot com>]

I don't have the vocabulary to describe what's happening here, but is
seems like Values as a parameter is not being processed correctly in
Kawa CL:

#|kawa:9|# (make-package 'a :use nil)
#,(namespace "A")
#|kawa:10|# (use-package 'a)
t
#|kawa:11|# (intern "ASYM" 'a)
{A}:ASYM ()
#|kawa:12|# (find-symbol "ASYM")
() ()
#|kawa:13|# (find-symbol "ASYM" 'a)
{A}:ASYM #,(namespace "internal")
#|kawa:14|# (defun foo (x) x)
#|kawa:15|# (foo (find-symbol "ASYM" 'a))
{A}:ASYM #,(namespace "internal")

On line 15, that should just return {A}:ASYM, but it returns all the
values. Other CL implementations only return the first value here (I
assume the semantics are roughly equivalent to (multiple-value-bind
(x) (find-symbol "ASYM" 'a)) when the parameter is received). Any
pointers on how to go about fixing this?

Thanks,
Charlie.