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

Diff of /slime/swank.lisp

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

revision 1.726 by heller, Fri Sep 3 07:25:19 2010 UTC revision 1.727 by trittweiler, Sat Sep 18 08:54:01 2010 UTC
# Line 2974  the filename of the module (or nil if th Line 2974  the filename of the module (or nil if th
2974  (defslimefun swank-compiler-macroexpand (string)  (defslimefun swank-compiler-macroexpand (string)
2975    (apply-macro-expander #'compiler-macroexpand string))    (apply-macro-expander #'compiler-macroexpand string))
2976    
2977    (defslimefun swank-macro/compiler-macro-expand-1 (string)
2978      (apply-macro-expander #'macro/compiler-macro-expand-1 string))
2979    
2980    (defslimefun swank-macro/compiler-macro-expand (string)
2981      (apply-macro-expander #'macro/compiler-macro-expand string))
2982    
2983    (defun macro/compiler-macro-expand-1 (form)
2984      (multiple-value-bind (expansion expanded?) (macroexpand-1 form)
2985        (if expanded?
2986            (values expansion t)
2987            (compiler-macroexpand-1 form))))
2988    
2989    (defun macro/compiler-macro-expand (form)
2990      (expand-repeatedly #'macro/compiler-macro-expand-1 form))
2991    
2992    (defun expand-repeatedly (expander form)
2993      (loop
2994        (multiple-value-bind (expansion expanded?) (funcall expander form)
2995          (unless expanded? (return expansion))
2996          (setq form expansion))))
2997    
2998  (defslimefun swank-format-string-expand (string)  (defslimefun swank-format-string-expand (string)
2999    (apply-macro-expander #'format-string-expand string))    (apply-macro-expander #'format-string-expand string))
3000    

Legend:
Removed from v.1.726  
changed lines
  Added in v.1.727

  ViewVC Help
Powered by ViewVC 1.1.5