diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-26 13:20:51 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-26 13:20:51 +0200 |
| commit | 638cb2d084ea9ddfc01ecf03603ab910dfe59d89 (patch) | |
| tree | c107dfedda049f886fac2de5b52c7c99de707627 /Lisp/internal-utilities.lisp | |
| parent | eae07aa1068527038ccc7457b00962665d3bd721 (diff) | |
Update documentation.
darcs-hash:32d8156e02effa3d43909670add8ac0701acba62
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))) |