diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 23:09:50 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 23:09:50 +0100 |
| commit | e06aa593fb25fb4e31e500fec9dc67b9ea842ba1 (patch) | |
| tree | c6f72614ad598d00d84f46e20d2cd833140a4c2d | |
| parent | e6e947b18ce0b6a5f62523adade5d7ffaefbac59 (diff) | |
Fix DEFINE-OBJECTIVE-C-GENERIC-FUNCTION.
darcs-hash:57cc807cebf34e1ea2e6367648f436e3af2dfa33
| -rw-r--r-- | Lisp/defpackage.lisp | 1 | ||||
| -rw-r--r-- | Lisp/method-definition.lisp | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/Lisp/defpackage.lisp b/Lisp/defpackage.lisp index 234e3d0..59aa041 100644 --- a/Lisp/defpackage.lisp +++ b/Lisp/defpackage.lisp @@ -23,6 +23,7 @@ ;; Functions (:export #:initialise-runtime #:shutdown-runtime + #:install-reader-syntax #:enable-method-syntax #:enable-objective-c-syntax #:disable-method-syntax diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp index 7342c4a..41f1f84 100644 --- a/Lisp/method-definition.lisp +++ b/Lisp/method-definition.lisp @@ -88,7 +88,8 @@ ,@(unless (position :method-class options :key #'car) - `((:method-class objcl:objective-c-method))))) + `((:method-class objcl:objective-c-method))) + ,@options)) (defvar *callback-names* (make-hash-table :test #'eql)) |