/[slime]/slime/swank-ecl.lisp
ViewVC logotype

Diff of /slime/swank-ecl.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.45 by gcarncross, Mon Jul 27 04:08:41 2009 UTC revision 1.46 by sboukarev, Fri Nov 6 16:30:00 2009 UTC
# Line 198  Line 198 
198                  (values (read-from-string docstring t nil :start pos)))                  (values (read-from-string docstring t nil :start pos)))
199              (if (or errorp (not (listp arglist)))              (if (or errorp (not (listp arglist)))
200                  :not-available                  :not-available
201                  (cdr arglist)))                  ; ECL for some reason includes macro name at the first place
202                    (if (or (macro-function name)
203                            (special-operator-p name))
204                        (cdr arglist)
205                        arglist)))
206            :not-available ))))            :not-available ))))
207    
208  (defimplementation arglist (name)  (defimplementation arglist (name)

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

  ViewVC Help
Powered by ViewVC 1.1.5