Changeset 6187


Ignore:
Timestamp:
Apr 8, 2007, 3:18:30 AM (13 years ago)
Author:
gb
Message:

DEFSTATIC is now the preferred name for DEFGLOBAL.

%CALLBACK-FUNCTION accepts a symbol (as well as a pointer that's likely
the global value of some symbol.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-callbacks.lisp

    r5877 r6187  
    1919(in-package "CCL")
    2020
    21 (defglobal *callback-lock* (make-lock))
     21(defstatic *callback-lock* (make-lock))
    2222
    2323
     
    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.