Changeset 10527

Timestamp:

08/22/08 10:06:45 (3 months 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.

Files:

• branches/working-0711/ccl/library/lispequ.lisp (modified) (3 diffs)

branches/working-0711/ccl/library/lispequ.lisp

@@ -601 +601 @@
-)
-
-
-;;;;;;;;;;;;;
-
-(defconstant $catch.tag 0)
-(defconstant $catch.mvflag (+ $catch.tag 4))
-(defconstant $catch.dblink (+ $catch.mvflag 4))
-(defconstant $catch.vsp (+ $catch.dblink 4))
-(defconstant $catch.regs (+ $catch.vsp 4))
-(defconstant $catch.link (+ $catch.regs (* 4 5)))
-(defconstant $catch.scgvll (+ $catch.link 4))
-(defconstant $catch.cs_area (+ $catch.scgvll 4))
-(defconstant $catch.pc (+ $catch.cs_area 4))
-(defconstant $catchfsize (+ $catch.pc 4))
-
-
-;;; Bits in *gc-event-status-bits*
@@ -1248 +1235 @@
-  foreign-object-domain-class-own-wrapper ; function: returns class own wrapper if class
-  foreign-object-domain-slots-vector    ; returns slots vector of object or nil
+  foreign-object-domain-class-ordinal   ; returns class ordinal if class
+  foreign-object-domain-set-class-ordinal  ; sets class ordinal if class
-  )
-
@@ -1407 +1396 @@
-  shlib.soname
-  shlib.pathname
-opened-by-lisp-kernel
+handle                          ; if explicitly opened
-  shlib.map
-  shlib.base