Key

Fully covered - every single instruction executed

Partly covered - entered but some subforms not executed

Never entered - not a single instruction executed

Uninstrumented - a form whose coverage was not measured

1 (in-package :alu.ir.primitive-global)
2 
3 (defclass prim-circuit ()
4   ((name :initarg :name
5          :type    keyword
6          :accessor spc:name
7          :documentation "Name of the circuit")
8    ;; a list of constraints
9    (arguments :initarg :arguments
10               :type    list
11               :accessor spc:arguments
12               :documentation "Arguments for the circuit, saved in a
13 a list of `keyword'")
14    (returns :initarg  :returns
15             :type     list
16             :accessor returns
17             :documentation "The return output of a given circuit
18 stored in a list of `keyword'")
19    (body :initarg  :body
20          :accessor spc:body
21          :documentation "The circuit logic")))
22 
23 
24 (defmethod print-object ((obj prim-circuit) stream)
25   (with-accessors ((name spc:name) (ret returns) (bod spc:body) (arg spc:arguments)) obj
26     (print-unreadable-object (obj stream :type t)
27       (format stream "~A~{ ~A~^~} -> ~{~A~^ ~} =~%~A : ~A" name arg ret bod ret))))

 (lambda (#:next-method-context obj stream)
   (flet ()
     (let* ((#:g54349 obj))
       (let* ((#:g54350
               (function (lambda nil
                           (funcall 'format
                                    stream
                                    '"~A~{ ~A~^~} -> ~{~A~^ ~} =~%~A : ~A"
                                    (funcall 'spc:name #:g54349)
                                    (funcall 'spc:arguments #:g54349)
                                    (funcall 'returns #:g54349)
                                    (funcall 'spc:body #:g54349)
                                    (funcall 'returns #:g54349))))))
         (funcall 'ccl::%print-unreadable-object obj stream t nil #:g54350)))))

28 
29 (defun make-prim-circuit (&key name arguments returns body)
30   (make-instance 'prim-circuit
31                  :name name
32                  :body body
33                  :returns returns
34                  :arguments arguments))

 (lambda (&key ((:name name) nil #:compiler-var) ((:arguments arguments) nil #:compiler-var)
          ((:returns returns) nil #:compiler-var) ((:body body) nil #:compiler-var))
   (let* ()
     (funcall (ccl::%svref '(#:load-time-eval (funcall #<Anonymous Function #x302003AE033F>)) 3)
              '(#:load-time-eval (funcall #<Anonymous Function #x302003AE033F>))
              ':name
              name
              ':body
              body
              ':returns
              returns
              ':arguments
              arguments)))

Coverage report: home:Documents;Work;Repo;alu;src;intermediate;primitive-global.lisp.newest