diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-03 00:44:50 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-03 00:44:50 +0100 |
| commit | 48456409ce2b1c53932ff9adc005db7cf2e4f45d (patch) | |
| tree | 133ee23ada50aff1916623e86fef9b6aa01335a5 /Lisp/class-definition.lisp | |
| parent | 925bb8b3ceb87a6dd09c99ad08eef4c23a1dc524 (diff) | |
Cosmetic improvements.
darcs-hash:7585ed6937fb5617ae00999f9c90adf752b74b2e
Diffstat (limited to 'Lisp/class-definition.lisp')
| -rw-r--r-- | Lisp/class-definition.lisp | 4 |
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)) |