On Tue, Oct 30, 2012 at 2:41 AM, Matthew Mondor <mm_li...@pulsar-zone.net>wrote:
> 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
------------------------------------------------------------------------------
Everyone hates slow websites. So do we.
Make your web apps faster with AppDynamics
Download AppDynamics Lite for free today:
http://p.sf.net/sfu/appdyn_sfd2d_oct
_______________________________________________
Ecls-list mailing list
Ecls-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/ecls-list