diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-03 00:17:31 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-03 00:17:31 +0100 |
| commit | e3c9ac147bcd0e3516326a306a24f73ef0a6d4c4 (patch) | |
| tree | d97ccb97bc47a25a625acd180593cf79065749ac /Lisp | |
| parent | 628a01f38931b5cd3b3c1ede19e8b0b5678bf453 (diff) | |
Fix a few typos.
darcs-hash:7264ff2459fb64b0005df4df85e7129cf209cd2e
Diffstat (limited to 'Lisp')
| -rw-r--r-- | Lisp/class-definition.lisp | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp index 75481d0..049d521 100644 --- a/Lisp/class-definition.lisp +++ b/Lisp/class-definition.lisp @@ -26,7 +26,7 @@ (foreign-type :initarg :foreign-type :initform nil :accessor slot-definition-foreign-type) - #+(#:unused) + #+#:unused (property :initarg :property :accessor slot-definition-property-p :type boolean))) @@ -35,7 +35,7 @@ (foreign-slot-definition-mixin c2mop:standard-direct-slot-definition) ()) -(defclass foreign-effectve-slot-definition +(defclass foreign-effective-slot-definition (foreign-slot-definition-mixin c2mop:standard-effective-slot-definition) ()) @@ -54,15 +54,15 @@ (if (some #'(lambda (symbol) (let ((nada '#:nada)) (not (eq nada (getf initargs symbol nada))))) '(:foreign-type :foreign-name)) - (find-class 'foreign-direct-slot-definition) - (find-class 'c2mop:standard-direct-slot-definition))) + (find-class 'foreign-effective-slot-definition) + (find-class 'c2mop:standard-effective-slot-definition))) (defmethod c2mop:slot-value-using-class ((class objective-c-class) instance effective-slot-definition) (etypecase effective-slot-definition - (standard-effective-slot-definition (call-next-method)) + (c2mop:standard-effective-slot-definition (call-next-method)) (foreign-effective-slot-definition (cerror "FIXME" '())))) @@ -72,7 +72,7 @@ instance effective-slot-definition) (etypecase effective-slot-definition - (standard-effective-slot-definition (call-next-method)) + (c2mop:standard-effective-slot-definition (call-next-method)) (foreign-effective-slot-definition (cerror "FIXME" '())))) @@ -82,7 +82,7 @@ effective-slot-definition) (declare (ignore instance)) (etypecase effective-slot-definition - (standard-effective-slot-definition (call-next-method)) + (c2mop:standard-effective-slot-definition (call-next-method)) (foreign-effective-slot-definition t))) |