Changeset 10111 for trunk/source/library


Ignore:
Timestamp:
Jul 19, 2008, 1:26:48 AM (11 years ago)
Author:
rme
Message:

Change expansion of macro PACKAGE-DELETED-MARKER; delete some obsolete
constants.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/library/lispequ.lisp

    r10055 r10111  
    218218
    219219(defmacro package-deleted-marker ()
    220   (%unbound-marker))
     220  `(%unbound-marker))
    221221
    222222
     
    602602)
    603603
    604 
    605604;;;;;;;;;;;;;
    606 
    607 (defconstant $catch.tag 0)
    608 (defconstant $catch.mvflag (+ $catch.tag 4))
    609 (defconstant $catch.dblink (+ $catch.mvflag 4))
    610 (defconstant $catch.vsp (+ $catch.dblink 4))
    611 (defconstant $catch.regs (+ $catch.vsp 4))
    612 (defconstant $catch.link (+ $catch.regs (* 4 5)))
    613 (defconstant $catch.scgvll (+ $catch.link 4))
    614 (defconstant $catch.cs_area (+ $catch.scgvll 4))
    615 (defconstant $catch.pc (+ $catch.cs_area 4))
    616 (defconstant $catchfsize (+ $catch.pc 4))
    617 
    618605
    619606;;; Bits in *gc-event-status-bits*
Note: See TracChangeset for help on using the changeset viewer.