Changeset 6795 for branches


Ignore:
Timestamp:
Jul 8, 2007, 11:11:04 PM (17 years ago)
Author:
Gary Byers
Message:

Less typechecking zeal in SAFE-GET-PTR.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/ide-1.0/ccl/level-0/l0-misc.lisp

    r6487 r6795  
    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.