*** /tmp/lispbibl.d     Tue Mar 30 10:35:22 1993
--- lispbibl.d  Tue Mar 30 18:51:31 1993
***************
*** 2354,2363 ****
  
  # Objekt aus Typinfo und Adresse:
  # type_pointer_object(type,address)
!   #if (addr_shift==0)
      #define type_pointer_object(type,address)  \
!       type_untype_object(type,(aint)(address))
!   #elif 0
      #define type_pointer_object(type,address)  \
        type_untype_object(type,(aint)(address)>>addr_shift)
    #else # effizienter,
--- 2354,2363 ----
  
  # Objekt aus Typinfo und Adresse:
  # type_pointer_object(type,address)
!   #if (addr_shift==0) && !defined(WIDE)
      #define type_pointer_object(type,address)  \
!       type_untype_object(type,address)
!   #elif defined(WIDE)
      #define type_pointer_object(type,address)  \
        type_untype_object(type,(aint)(address)>>addr_shift)
    #else # effizienter,