Parent Directory | Revision Log | Patch
revision 1.14 by camm, Fri Jul 8 06:02:47 2005 UTC | revision 1.15 by camm, Sat Jul 23 08:48:18 2005 UTC | |
---|---|---|
# | Line 37 | Line 37 |
37 | *funs*))) | *funs*))) |
38 | ||
39 | (defun cmp-macroexp-with-compiler-macros (form) | (defun cmp-macroexp-with-compiler-macros (form) |
40 | (let ((form (cmp-macroexpand form))) | (let ((form (if (and (consp form) (eq (car form) 'or)) form (cmp-macroexpand form)))) |
41 | (if (and (consp form) (symbolp (car form))) | (if (and (consp form) (symbolp (car form))) |
42 | (let ((cmf (get (car form) 'compiler-macro))) | (let ((cmf (get (car form) 'compiler-macro))) |
43 | (if cmf | (if cmf |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |