Index: /trunk/ccl/examples/objc-support.lisp
===================================================================
--- /trunk/ccl/examples/objc-support.lisp	(revision 5898)
+++ /trunk/ccl/examples/objc-support.lisp	(revision 5899)
@@ -13,5 +13,5 @@
 (progn
   (def-foreign-type :<CGF>loat :float)
-  (def-foreign-type :<NSUI>nteger :unsigned)'
+  (def-foreign-type :<NSUI>nteger :unsigned)
   (def-foreign-type :<NSI>nteger :signed)
   )
@@ -201,5 +201,5 @@
   ;; first argument on PPC.)
   (let* ((addr (%reference-external-entry-point (load-time-value (external "__NSRaiseError")))))
-    (if (type addr 'fixnum)
+    (if (typep addr 'fixnum)
       (%set-object return-address-pointer 0 addr)
       (setf (%get-ptr return-address-pointer 0) addr)))