Embeddable Common-Lisp

On Mon, 15 Oct 2012 22:32:26 -0400
Matthew Mondor <mm_lists@...> wrote:

> And the .emacsrc only has: (require :asdf)

Err, the ~/.eclrc
-- 
Matt

Matthew Mondor <mm_lists@...> writes:

> Hello,
>
> Anyone also experience the above error, along with a delay, and if
> typing during that delay, lost characters?  Most notably when typing
> inside a WITH-OPEN-FILE macro, but I know it also happened in a few
> other cases, although I forgot where.
The problem is that sys:function-lambda-list doesn't like macros or
special operators anymore. Clearly, the name suggests that it takes
functions, but it used to work on non-functions before this change:
http://sourceforge.net/p/ecls/ecl/ci/b1ec23bce8a385251f14b278c080e22e459cc70f/tree/src/lsp/top.lsp?diff=8b1c6a203919bdfd6da989565e53bd149dad7e1b


-- 
With best regards, Stas.

Stas Boukarev <stassats@...> writes:

> Matthew Mondor <mm_lists@...> writes:
>
>> Hello,
>>
>> Anyone also experience the above error, along with a delay, and if
>> typing during that delay, lost characters?  Most notably when typing
>> inside a WITH-OPEN-FILE macro, but I know it also happened in a few
>> other cases, although I forgot where.
> The problem is that sys:function-lambda-list doesn't like macros or
> special operators anymore. Clearly, the name suggests that it takes
> functions, but it used to work on non-functions before this change:
> http://sourceforge.net/p/ecls/ecl/ci/b1ec23bce8a385251f14b278c080e22e459cc70f/tree/src/lsp/top.lsp?diff=8b1c6a203919bdfd6da989565e53bd149dad7e1b
It's possible to use (ext:get-annotation operator :lambda-list nil), but
it returns a string for LET
(ext:get-annotation 'let :lambda-list nil)
=>
"(let ({var | (var [init])}*) {decl}* {form}*)"
-- 
With best regards, Stas.

On Sat, 20 Oct 2012 22:19:46 +0400
Stas Boukarev <stassats@...> wrote:

> > The problem is that sys:function-lambda-list doesn't like macros or
> > special operators anymore. Clearly, the name suggests that it takes
> > functions, but it used to work on non-functions before this change:
> > http://sourceforge.net/p/ecls/ecl/ci/b1ec23bce8a385251f14b278c080e22e459cc70f/tree/src/lsp/top.lsp?diff=8b1c6a203919bdfd6da989565e53bd149dad7e1b
> It's possible to use (ext:get-annotation operator :lambda-list nil), but
> it returns a string for LET
> (ext:get-annotation 'let :lambda-list nil)
> =>
> "(let ({var | (var [init])}*) {decl}* {form}*)"

Thanks for the details.  Although I don't get errors for other common
macros, I noticed that documentation is not shown for macros such as
PUSH or PUSHNEW as well, which this also explains.
-- 
Matt

On Sun, 21 Oct 2012 12:20:33 -0400
Matthew Mondor <mm_lists@...> wrote:

> On Sat, 20 Oct 2012 22:19:46 +0400
> Stas Boukarev <stassats@...> wrote:
> 
> > > The problem is that sys:function-lambda-list doesn't like macros or
> > > special operators anymore. Clearly, the name suggests that it takes
> > > functions, but it used to work on non-functions before this change:
> > > http://sourceforge.net/p/ecls/ecl/ci/b1ec23bce8a385251f14b278c080e22e459cc70f/tree/src/lsp/top.lsp?diff=8b1c6a203919bdfd6da989565e53bd149dad7e1b
> > It's possible to use (ext:get-annotation operator :lambda-list nil), but
> > it returns a string for LET
> > (ext:get-annotation 'let :lambda-list nil)
> > =>
> > "(let ({var | (var [init])}*) {decl}* {form}*)"
> 
> Thanks for the details.  Although I don't get errors for other common
> macros, I noticed that documentation is not shown for macros such as
> PUSH or PUSHNEW as well, which this also explains.

So I today had some time to do a small test and the following function
indeed seems to work better in general.

(defimplementation arglist (name)
  (let ((arglist (ext:get-annotation name :lambda-list nil)))
    (if (or (null arglist) (stringp arglist))
        :not-available
        arglist)))

Thanks again,
-- 
Matt

On Tue, Oct 23, 2012 at 5:54 PM, Matthew Mondor <mm_lists@...:

>
> So I today had some time to do a small test and the following function
> indeed seems to work better in general.
>
> (defimplementation arglist (name)
>   (let ((arglist (ext:get-annotation name :lambda-list nil)))
>     (if (or (null arglist) (stringp arglist))
>         :not-available
>         arglist)))
>

I have fixed instead the ECL documentation database so that _all_ lambda
lists are kept as lists, including those that describe the syntax of
special operators. Please test and report whether this works for you.

Juanjo

-- 
Instituto de Física Fundamental, CSIC
c/ Serrano, 113b, Madrid 28006 (Spain)
http://juanjose.garciaripoll.googlepages.com

On Sat, 27 Oct 2012 23:14:31 +0200
Juan Jose Garcia-Ripoll <juanjose.garciaripoll@...> wrote:

> On Tue, Oct 23, 2012 at 5:54 PM, Matthew Mondor <mm_lists@...:
> 
> >
> > So I today had some time to do a small test and the following function
> > indeed seems to work better in general.
> >
> > (defimplementation arglist (name)
> >   (let ((arglist (ext:get-annotation name :lambda-list nil)))
> >     (if (or (null arglist) (stringp arglist))
> >         :not-available
> >         arglist)))
> >
> 
> I have fixed instead the ECL documentation database so that _all_ lambda
> lists are kept as lists, including those that describe the syntax of
> special operators. Please test and report whether this works for you.

With in swank-ecl.lisp:

(defimplementation arglist (name)
  (let ((arglist (ext:get-annotation name :lambda-list nil)))
    (if (null arglist)
        :not-available
        arglist)))

And your latest changes, it's very nice so far.

Thanks,
-- 
Matt

On Tue, Oct 30, 2012 at 2:41 AM, Matthew Mondor <mm_lists@...:

> With in swank-ecl.lisp:
>
> (defimplementation arglist (name)
>   (let ((arglist (ext:get-annotation name :lambda-list nil)))
>     (if (null arglist)
>         :not-available
>         arglist)))
>
> And your latest changes, it's very nice so far.
>

The original code works for me just fine

(defimplementation arglist (name)
  (multiple-value-bind (arglist foundp)
      (ext:function-lambda-list name)
    (if foundp arglist :not-available)))

Does it not in your system?

Juanjo

-- 
Instituto de Física Fundamental, CSIC
c/ Serrano, 113b, Madrid 28006 (Spain)
http://juanjose.garciaripoll.googlepages.com

On Tue, 30 Oct 2012 11:50:17 +0100
Juan Jose Garcia-Ripoll <juanjose.garciaripoll@...> wrote:

> The original code works for me just fine
> 
> (defimplementation arglist (name)
>   (multiple-value-bind (arglist foundp)
>       (ext:function-lambda-list name)
>     (if foundp arglist :not-available)))
> 
> Does it not in your system?

I did not notice that function-lambda-list was modified to work again
with macros.  I'll test this later on as well.

Thanks,
-- 
Matt

On Tue, 30 Oct 2012 11:50:17 +0100
Juan Jose Garcia-Ripoll <juanjose.garciaripoll@...> wrote:

> The original code works for me just fine
> 
> (defimplementation arglist (name)
>   (multiple-value-bind (arglist foundp)
>       (ext:function-lambda-list name)
>     (if foundp arglist :not-available)))
> 
> Does it not in your system?

I confirm it works fine again, thanks!
-- 
Matt