From e06aa593fb25fb4e31e500fec9dc67b9ea842ba1 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Tue, 4 Mar 2008 23:09:50 +0100
Subject: Fix DEFINE-OBJECTIVE-C-GENERIC-FUNCTION.

darcs-hash:57cc807cebf34e1ea2e6367648f436e3af2dfa33
---
 Lisp/defpackage.lisp        | 1 +
 Lisp/method-definition.lisp | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

(limited to 'Lisp')

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))
-- 
cgit v1.2.3