Changeset 6917 for trunk/ccl/level-0/l0-misc.lisp

Timestamp:

Jul 21, 2007, 10:13:14 PM (14 years ago)

Author:

gb

Message:

Less zeal in SAFE-GET-PTR.

File:

• trunk/ccl/level-0/l0-misc.lisp (modified) (1 diff)

trunk/ccl/level-0/l0-misc.lisp

@@ -668 +668 @@
   (if (null dest)
     (setq dest (%null-ptr))
-    (check-type dest macptr))
+    (unless (typep dest 'macptr)
+      (check-type dest macptr)))
   (without-interrupts                   ;reentrancy
    (%safe-get-ptr p dest)))