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

Diff of /slime/swank-abcl.lisp

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

revision 1.76 by heller, Mon Nov 2 09:20:33 2009 UTC revision 1.77 by mevenson, Thu Nov 26 07:06:50 2009 UTC
# Line 229  Line 229 
229    
230  (defimplementation arglist (fun)  (defimplementation arglist (fun)
231    (cond ((symbolp fun)    (cond ((symbolp fun)
232           (multiple-value-bind (arglist present)            (multiple-value-bind (arglist present)
233               (or (sys::arglist fun)                (sys::arglist fun)
234                   (and (fboundp fun)              (when (and (not present)
235                        (typep (symbol-function fun) 'standard-generic-function)                         (fboundp fun)
236                        (let ((it (mop::generic-function-lambda-list (symbol-function fun))))                         (typep (symbol-function fun) 'standard-generic-function))
237                          (values it it))))                (setq arglist
238             (if present arglist :not-available)))                      (mop::generic-function-lambda-list (symbol-function fun))
239                        present
240                        t))
241                (if present arglist :not-available)))
242          (t :not-available)))          (t :not-available)))
243    
244  (defimplementation function-name (function)  (defimplementation function-name (function)

Legend:
Removed from v.1.76  
changed lines
  Added in v.1.77

  ViewVC Help
Powered by ViewVC 1.1.5