Changeset 6148


Ignore:
Timestamp:
Apr 7, 2007, 12:37:19 PM (12 years ago)
Author:
gb
Message:

%CALLBACK-FUNCTION acceps a symbol, uses its value.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/objc-gf/ccl/level-1/l1-callbacks.lisp

    r6086 r6148  
    9898
    9999(defun %callback-function (pointer)
     100  (if (typep pointer 'symbol)
     101    (setq pointer (symbol-value pointer)))
    100102  (with-lock-grabbed (*callback-lock*)
    101103    (let* ((index (dotimes (i (length %pascal-functions%))
Note: See TracChangeset for help on using the changeset viewer.