/[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.38 by heller, Sat Jan 10 12:25:16 2009 UTC revision 1.39 by gcarncross, Fri Jan 30 06:07:31 2009 UTC
# Line 184  Line 184 
184            (multiple-value-bind (arglist errorp)            (multiple-value-bind (arglist errorp)
185                (ignore-errors                (ignore-errors
186                  (values (read-from-string docstring t nil :start pos)))                  (values (read-from-string docstring t nil :start pos)))
187              (if errorp :not-available (cdr arglist)))              (if (or errorp (not (listp arglist)))
188                    :not-available
189                    (cdr arglist)))
190            :not-available ))))            :not-available ))))
191    
192  (defimplementation arglist (name)  (defimplementation arglist (name)

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

  ViewVC Help
Powered by ViewVC 1.1.5