diff options
Diffstat (limited to 'Lisp/internal-utilities.lisp')
| -rw-r--r-- | Lisp/internal-utilities.lisp | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/Lisp/internal-utilities.lisp b/Lisp/internal-utilities.lisp index 29196c4..1a117f8 100644 --- a/Lisp/internal-utilities.lisp +++ b/Lisp/internal-utilities.lisp @@ -23,16 +23,6 @@ `(progn ,@body)) -(declaim (ftype (function (symbol * &rest *)))) -(defun apply-macro (macro-name arg &rest args) - "Because FOREIGN-FUNCALL is a macro. Why, oh why is this?" - (funcall - (compile nil - `(lambda () - (,macro-name ,@(butlast (cons arg args)) - ,@(car (last (cons arg args)))))))) - - (defmacro with-foreign-string-pool ((register-fn-name) &body body) (let ((pool-var (gensym))) `(let ((,pool-var (list))) |