Changeset 5899


Ignore:
Timestamp:
Feb 12, 2007, 3:21:13 AM (13 years ago)
Author:
gb
Message:

Lose a quote mark, fix another typo.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/examples/objc-support.lisp

    r5890 r5899  
    1313(progn
    1414  (def-foreign-type :<CGF>loat :float)
    15   (def-foreign-type :<NSUI>nteger :unsigned)'
     15  (def-foreign-type :<NSUI>nteger :unsigned)
    1616  (def-foreign-type :<NSI>nteger :signed)
    1717  )
     
    201201  ;; first argument on PPC.)
    202202  (let* ((addr (%reference-external-entry-point (load-time-value (external "__NSRaiseError")))))
    203     (if (type addr 'fixnum)
     203    (if (typep addr 'fixnum)
    204204      (%set-object return-address-pointer 0 addr)
    205205      (setf (%get-ptr return-address-pointer 0) addr)))
Note: See TracChangeset for help on using the changeset viewer.