diff options
| -rw-r--r-- | src/propspec.lisp | 13 | ||||
| -rw-r--r-- | src/util.lisp | 13 |
2 files changed, 13 insertions, 13 deletions
diff --git a/src/propspec.lisp b/src/propspec.lisp index e1ca1cb..4e0dc8e 100644 --- a/src/propspec.lisp +++ b/src/propspec.lisp @@ -124,19 +124,6 @@ FUNCTION designates a pure function from propapps to propapps." env))) env)))) -(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 make-propspec (&key (systems nil systems-supplied-p) props) (setq props (copy-tree props)) (labels ((preprocess (item) diff --git a/src/util.lisp b/src/util.lisp index ee4ea71..248f52a 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -41,6 +41,19 @@ (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)))) + ;;;; Version numbers |