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

Diff of /slime/swank-lispworks.lisp

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

revision 1.38 by heller, Sat Mar 27 21:17:36 2004 UTC revision 1.39 by heller, Sun Apr 25 06:37:05 2004 UTC
# Line 100  Line 100 
100  (defimplementation arglist (symbol)  (defimplementation arglist (symbol)
101    (let ((arglist (lw:function-lambda-list symbol)))    (let ((arglist (lw:function-lambda-list symbol)))
102      (etypecase arglist      (etypecase arglist
103        ((member :dont-know)        ((member :dont-know)
104         (error "<arglist-unavailable>"))         :not-available)
105        (list arglist))))        (list
106           arglist))))
107    
108  (defimplementation macroexpand-all (form)  (defimplementation macroexpand-all (form)
109    (walker:walk-form form))    (walker:walk-form form))

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

  ViewVC Help
Powered by ViewVC 1.1.5