Changeset 9436


Ignore:
Timestamp:
May 9, 2008, 10:22:24 AM (11 years ago)
Author:
gb
Message:

TYPE-CELL stuff.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711-perf/ccl/level-0/l0-pred.lisp

    r8969 r9436  
    919919
    920920(setf (type-predicate 'uvector) 'uvectorp)
     921
     922(defparameter *type-cells* nil)
     923
     924
     925
     926(defparameter *type-cells-lock* nil)
     927
     928
     929;;; The weird handling to the special variables here has to do with
     930;;; xload issues.
     931(defun register-type-cell (specifier)
     932  (with-lock-grabbed ((or *type-cells-lock*
     933                         (setq *type-cells-lock* (make-lock))))
     934    (unless *type-cells*
     935      (setq *type-cells* (make-hash-table :test 'equal)))
     936    (or (values (gethash specifier *type-cells*))
     937        (setf (gethash specifier *type-cells*)
     938              (make-type-cell specifier)))))
Note: See TracChangeset for help on using the changeset viewer.