Changeset 10527


Ignore:
Timestamp:
Aug 22, 2008, 2:06:45 PM (11 years ago)
Author:
gb
Message:

Remove obsolete $catch* constants (from 68K ?)
shlib.opened-by-lisp-kernel is now shlib.handle.
Add slots to FOREIGN-OBJECT-DOMAIN to support getting/setting class ordinals.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/library/lispequ.lisp

    r9952 r10527  
    601601)
    602602
    603 
    604603;;;;;;;;;;;;;
    605 
    606 (defconstant $catch.tag 0)
    607 (defconstant $catch.mvflag (+ $catch.tag 4))
    608 (defconstant $catch.dblink (+ $catch.mvflag 4))
    609 (defconstant $catch.vsp (+ $catch.dblink 4))
    610 (defconstant $catch.regs (+ $catch.vsp 4))
    611 (defconstant $catch.link (+ $catch.regs (* 4 5)))
    612 (defconstant $catch.scgvll (+ $catch.link 4))
    613 (defconstant $catch.cs_area (+ $catch.scgvll 4))
    614 (defconstant $catch.pc (+ $catch.cs_area 4))
    615 (defconstant $catchfsize (+ $catch.pc 4))
    616 
    617604
    618605;;; Bits in *gc-event-status-bits*
     
    12491236  foreign-object-domain-class-own-wrapper ; function: returns class own wrapper if class
    12501237  foreign-object-domain-slots-vector    ; returns slots vector of object or nil
     1238  foreign-object-domain-class-ordinal   ; returns class ordinal if class
     1239  foreign-object-domain-set-class-ordinal  ; sets class ordinal if class
    12511240  )
    12521241
     
    14081397  shlib.soname
    14091398  shlib.pathname
    1410   shlib.opened-by-lisp-kernel
     1399  shlib.handle                          ; if explicitly opened
    14111400  shlib.map
    14121401  shlib.base
Note: See TracChangeset for help on using the changeset viewer.