diff options
Diffstat (limited to 'src/util.lisp')
-rw-r--r-- | src/util.lisp | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/src/util.lisp b/src/util.lisp index 474d27c..e08d566 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -41,19 +41,6 @@ (defun memstring= (string list) (member string list :test #'string=)) -(defun macroexpand-all (form &optional env) - "Wrap TRIVIAL-MACROEXPAND-ALL:MACROEXPAND-ALL to convert silent failures to -expand into errors." - (multiple-value-bind (expanded supported env-supported) - (trivial-macroexpand-all:macroexpand-all form env) - (cond - ((not supported) - (error "Don't know how to MACROEXPAND-ALL in this Lisp.")) - ((and env (not env-supported)) - (error "Don't know how to MACROEXPAND-ALL with env in this Lisp.")) - (t - expanded)))) - (defun ordinary-ll-without-&aux (ll) (loop for arg in ll if (eq '&aux arg) return accum |