diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-10-04 16:57:36 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-10-04 16:57:36 +0200 |
commit | b8764bfc2acf5f569b864a8b30175d2285b529d7 (patch) | |
tree | 2235aa8ad5451309d8d5cf465f14fdf3d11c42f5 /Lisp/internal-utilities.lisp | |
parent | 2b699e8f4abc96ae57206250cf1e6e558089e2f7 (diff) |
Mimic the way PyObjC handles types.
darcs-hash:d7cf81f2dd93817e55a04816f3851fabce3dac55
Diffstat (limited to 'Lisp/internal-utilities.lisp')
-rw-r--r-- | Lisp/internal-utilities.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Lisp/internal-utilities.lisp b/Lisp/internal-utilities.lisp index 1a117f8..6578971 100644 --- a/Lisp/internal-utilities.lisp +++ b/Lisp/internal-utilities.lisp @@ -23,6 +23,10 @@ `(progn ,@body)) +(defun featurep (symbol) + (member symbol *features*)) + + (defmacro with-foreign-string-pool ((register-fn-name) &body body) (let ((pool-var (gensym))) `(let ((,pool-var (list))) |