anchor.diff:                       :context context))))
   
   (defmacro lambda-g (args &body body)
  -  (make-gpu-lambda args body))
  +  (make-gpu-lambda args body)
  +  `(make-gpu-lambda ',args ',body))
   
   (defmacro glambda (args &body body)
     `(lambda-g ,args ,@body))
  
positive.code:    (doc-string :initarg :doc-string)
     (declarations :initarg :declarations)
     (context :initarg :context)
     (func-spec :initform nil))
    (:metaclass closer-mop:funcallable-standard-class))
  
  (defmethod lambda-g->func-spec ((lambda-g gpu-lambda))
  
negative.code:                  `(quote ,(second x))
                   x)))
      (let ((args (mapcar #'unfunc gpipe-args)))
        `(the function (make-lambda-pipeline (list ,@args) ',context)))))
  
  (defmacro g-> (context &body gpipe-args)
    `(pipeline-g ,context ,@gpipe-args))
  