From e3c9ac147bcd0e3516326a306a24f73ef0a6d4c4 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 3 Feb 2008 00:17:31 +0100 Subject: Fix a few typos. darcs-hash:7264ff2459fb64b0005df4df85e7129cf209cd2e --- Lisp/class-definition.lisp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'Lisp/class-definition.lisp') 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))) -- cgit v1.2.3