anchor.diff:                (progn ,@body)
              (update-task-count ,kernel -1))))))
   
  -(defmacro/once force/fast (&once future)
  +(defmacro force/fast (future)
  +  (check-type future symbol)
     `(loop
         (when (fulfilledp ,future)
           (return (force ,future)))
  
positive.code: (setf *optimizer* 'defpun)
  
  (defslots task-counter ()
    ((task-count              :initform 0 :type fixnum)
     (lock       :reader lock :initform (make-lock))))
  
  (defmethod make-optimizer-data ((specializer (eql 'defpun)))
    (declare (ignore specializer))
  
negative.code: (defvar *registered-fns* nil)
  
  (defun unchecked-name (name)
    (intern (conc-syms '#:%p name '#:/no-check) (symbol-package name)))
  
  (defun defpun-loaded-p (name)
    (ignore-errors
  