Changeset 6917


Ignore:
Timestamp:
Jul 21, 2007, 10:13:14 PM (12 years ago)
Author:
gb
Message:

Less zeal in SAFE-GET-PTR.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-0/l0-misc.lisp

    r6487 r6917  
    668668  (if (null dest)
    669669    (setq dest (%null-ptr))
    670     (check-type dest macptr))
     670    (unless (typep dest 'macptr)
     671      (check-type dest macptr)))
    671672  (without-interrupts                   ;reentrancy
    672673   (%safe-get-ptr p dest)))
Note: See TracChangeset for help on using the changeset viewer.