Changeset 6088


Ignore:
Timestamp:
Mar 28, 2007, 6:34:03 AM (12 years ago)
Author:
gb
Message:

Use DEFSTATIC vice DEFGLOBAL.

Location:
branches/objc-gf/ccl/level-1
Files:
4 edited

Legend:

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

    r3967 r6088  
    515515                               (ash 1 $lfbits-method-bit)))))))
    516516
    517 (defglobal *generic-function-class-wrapper* nil)
    518 (defglobal *standard-generic-function-class-wrapper* nil)
     517(defstatic *generic-function-class-wrapper* nil)
     518(defstatic *standard-generic-function-class-wrapper* nil)
    519519
    520520(defun generic-function-p (thing)
  • branches/objc-gf/ccl/level-1/l1-events.lisp

    r5065 r6088  
    112112
    113113
    114 (defglobal *running-periodic-tasks* nil)
     114(defstatic *running-periodic-tasks* nil)
    115115
    116116(defun cmain ()
  • branches/objc-gf/ccl/level-1/l1-utils.lisp

    r5453 r6088  
    940940  (assoc str alist :test #'string-equal))
    941941
    942 (defglobal *pathname-escape-character* #\\
     942(defstatic *pathname-escape-character* #\\
    943943  "Not CL.  A Coral addition for compatibility between CL spec and the shell.")
    944944
  • branches/objc-gf/ccl/level-1/x86-callback-support.lisp

    r4845 r6088  
    1717(in-package "CCL")
    1818
    19 (defglobal *callback-alloc-lock* (make-lock))
     19(defstatic *callback-alloc-lock* (make-lock))
    2020
    2121;;;
     
    2828          0))
    2929
    30 (defglobal *available-bytes-for-callbacks* 0)
    31 (defglobal *current-callback-page* nil)
     30(defstatic *available-bytes-for-callbacks* 0)
     31(defstatic *current-callback-page* nil)
    3232
    3333(defun reset-callback-storage ()
Note: See TracChangeset for help on using the changeset viewer.