summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-03 00:44:50 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-03 00:44:50 +0100
commit48456409ce2b1c53932ff9adc005db7cf2e4f45d (patch)
tree133ee23ada50aff1916623e86fef9b6aa01335a5
parent925bb8b3ceb87a6dd09c99ad08eef4c23a1dc524 (diff)
Cosmetic improvements.
darcs-hash:7585ed6937fb5617ae00999f9c90adf752b74b2e
-rw-r--r--Lisp/class-definition.lisp4
1 files changed, 2 insertions, 2 deletions
diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp
index be6e845..b4540f0 100644
--- a/Lisp/class-definition.lisp
+++ b/Lisp/class-definition.lisp
@@ -49,7 +49,7 @@
t)
(defmethod c2mop:direct-slot-definition-class ((class objective-c-class)
- &rest initargs)
+ &rest initargs)
(if (some #'(lambda (symbol) (let ((nada '#:nada))
(not (eq nada (getf initargs symbol nada)))))
'(:foreign-type :foreign-name))
@@ -58,7 +58,7 @@
(defmethod c2mop:effective-slot-definition-class ((class objective-c-class)
- &rest initargs)
+ &rest initargs)
(if (some #'(lambda (symbol) (let ((nada '#:nada))
(not (eq nada (getf initargs symbol nada)))))
'(:foreign-type :foreign-name))