Changeset 12345


Ignore:
Timestamp:
Jul 1, 2009, 7:02:57 PM (10 years ago)
Author:
gz
Message:

Wrap without-compiling-code-coverage around assert and check-type

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/macros.lisp

    r12328 r12345  
    27182718  (let* ((TOP (gensym))
    27192719         (setf-places-p (not (null places))))
    2720     `(tagbody
     2720    `(without-compiling-code-coverage
     2721      (tagbody
    27212722       ,TOP
    27222723       (unless ,test-form
     
    27322733                                (when ,set-p (setf ,place (values-list ,new-val)))))
    27332734                         places)))
    2734          (go ,TOP)))))
     2735         (go ,TOP))))))
    27352736
    27362737
     
    27422743  invoked. In that case it will store into PLACE and start over."
    27432744  (let* ((val (gensym)))
    2744     `(do* ((,val ,place ,place))
     2745    `(without-compiling-code-coverage
     2746      (do* ((,val ,place ,place))
    27452747          ((typep ,val ',typespec))
    2746        (setf ,place (%check-type ,val ',typespec ',place ,string)))))
     2748       (setf ,place (%check-type ,val ',typespec ',place ,string))))))
    27472749
    27482750
Note: See TracChangeset for help on using the changeset viewer.