Index: /trunk/ccl/examples/bridge.lisp
===================================================================
--- /trunk/ccl/examples/bridge.lisp	(revision 454)
+++ /trunk/ccl/examples/bridge.lisp	(revision 455)
@@ -7,8 +7,4 @@
 ;;;;   (1) Convenient Lisp syntax for instantiating ObjC classes
 ;;;;   (2) Convenient Lisp syntax for invoking ObjC methods
-;;;;   (3) Ability to define CLOS subclasses of ObjC class with Lisp slots
-;;;;       and have their instances be usable as ObjC objects (eventually)
-;;;;   (4) Ability to define CLOS methods on ObjC classes and have them be
-;;;;       invoked by ObjC if they match an ObjC method name (eventually)
 ;;;;
 ;;;; Copyright (c) 2003 Randall D. Beer
@@ -133,6 +129,6 @@
 (defun find-objc-class (cname)
   (%objc-class-classptr 
-   (if (symbolp cname)
-       (load-objc-class-descriptor (lisp-to-objc-classname cname))
+   (if (symbolp cname) 
+       (find-class cname)
      (load-objc-class-descriptor cname))))
 
@@ -142,9 +138,7 @@
                       
 (defun objc-class-of (o)
-  (multiple-value-bind (ignore class) (objc-object-p o)
-    (declare (ignore ignore))
-    (if (null class)
-      (error "~S is not an ObjC object" o)
-      class)))
+  (if (objc-object-p o)
+      (class-of o)
+    (error "~S is not an ObjC object" o)))
 
 
@@ -153,6 +147,5 @@
 
 (defun get-objc-class-from-declaration (otype)
-  (cond ((symbolp otype)
-         (lookup-objc-class (lisp-to-objc-classname otype)))
+  (cond ((symbolp otype) (lookup-objc-class (lisp-to-objc-classname otype)))
         ((and (consp otype) (eq (first otype) '@metaclass))
          (let* ((name (second otype))