Changeset 5899

Timestamp:

Feb 11, 2007, 7:21:13 PM (18 years ago)

Author:

Gary Byers

Message:

Lose a quote mark, fix another typo.

File:

• trunk/ccl/examples/objc-support.lisp (modified) (2 diffs)

trunk/ccl/examples/objc-support.lisp

@@ -13 +13 @@
 (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 +201 @@
   ;; 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)))