diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-21 14:41:15 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-21 14:41:15 +0200 |
commit | 4167e6b9ec7c144bf259a820d7c958ecf7632c3f (patch) | |
tree | 49ea779302dd9f5726e1bbdc3528c0973d28aace /Lisp/internal-utilities.lisp | |
parent | b8c9eac7390219c71b67c6022a1cf1203d609d87 (diff) |
Prune yet another bunch of unused code chunks.
darcs-hash:b90a1129a53bdc6fb3762a0d37bb797711d7037e
Diffstat (limited to 'Lisp/internal-utilities.lisp')
-rw-r--r-- | Lisp/internal-utilities.lisp | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/Lisp/internal-utilities.lisp b/Lisp/internal-utilities.lisp index 13d4e47..cf1c562 100644 --- a/Lisp/internal-utilities.lisp +++ b/Lisp/internal-utilities.lisp @@ -16,29 +16,6 @@ ,@(car (last (cons arg args)))))))) -(defmacro with-foreign-conversion (bindings &body body) - `(with-obj-data-values - ,(mapcar #'(lambda (name-value-pair) - (destructuring-bind (name value) - name-value-pair - `(,name (lisp->obj-data ,value)))) - bindings) - ,@body)) - - -(defmacro with-obj-data-values (bindings &body body) - `(let ,(mapcar #'(lambda (name-value-pair) - (destructuring-bind (name value) - name-value-pair - `(,name ,value))) - bindings) - (unwind-protect - (progn ,@body) - ,@(mapcar #'(lambda (name-value-pair) - `(dealloc-obj-data ,(first name-value-pair))) - bindings)))) - - (defmacro with-foreign-string-pool ((register-fn-name) &body body) (let ((pool-var (gensym))) `(let ((,pool-var (list))) |