Changeset 9504


Ignore:
Timestamp:
May 16, 2008, 12:28:32 AM (11 years ago)
Author:
gb
Message:

Move istruct definitions to lispequ.

File:
1 edited

Legend:

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

    r7591 r9504  
    4040
    4141
    42 (def-accessor-macros %svref
    43   nil                                 ; 'external-entry-point
    44   eep.address
    45   eep.name
    46   eep.container)
    47 
    48 (defun %cons-external-entry-point (name &optional container)
    49   (%istruct 'external-entry-point nil name container))
    5042
    5143(defun external-entry-point-p (x)
    5244  (istruct-typep x 'external-entry-point))
    53 
    54 (def-accessor-macros %svref
    55     nil                                 ;'foreign-variable
    56   fv.addr                               ; a MACPTR, or nil
    57   fv.name                               ; a string
    58   fv.type                               ; a foreign type
    59   fv.container                          ; containing library
    60   )
    61 
    62 (defun %cons-foreign-variable (name type &optional container)
    63   (%istruct 'foreign-variable nil name type container))
    64 
    65 (def-accessor-macros %svref
    66     nil                                 ;'shlib
    67   shlib.soname
    68   shlib.pathname
    69   shlib.opened-by-lisp-kernel
    70   shlib.map
    71   shlib.base
    72   shlib.opencount)
    73 
    74 (defun %cons-shlib (soname pathname map base)
    75   (%istruct 'shlib soname pathname nil map base 0))
    7645
    7746(defvar *rtld-next*)
Note: See TracChangeset for help on using the changeset viewer.