Lines Matching +refs:handle +refs:circularity

82 (defstruct (circularity (:copier nil))
198 (defun dump-push (handle fasl-output)
199   (declare (type index handle) (type fasl-output fasl-output))
200   (dump-fop 'fop-push fasl-output handle)
221   (let ((handle (gethash x (fasl-output-equal-table fasl-output))))
223      (handle (dump-push handle fasl-output) t)
228   (let ((handle (cdr (assoc
233      (handle (dump-push handle fasl-output) t)
246   (let ((handle (dump-to-table fasl-output)))
247     (setf (gethash x (fasl-output-equal-table fasl-output)) handle)
248     (setf (gethash x (fasl-output-eq-table fasl-output)) handle))
253   (let ((handle (dump-to-table fasl-output)))
256                 handle)
258     (setf (gethash x (fasl-output-eq-table fasl-output)) handle))
505   (let ((handle (gethash (sb!c::leaf-info fun)
507     (aver handle)
508     (dump-push handle file)
525 (defun fasl-note-handle-for-constant (constant handle file)
529     (setf (gethash constant table) handle))
1096                        (handle (gethash info
1101                    (handle
1102                     (dump-push handle fasl-output))
1140       (let ((handle (dump-pop fasl-output)))
1142           (push (cons handle (cdr patch))
1145         handle))))
1224   (let ((handle (gethash (sb!c::leaf-info fun)
1226     (aver handle)
1227     (dump-push handle fasl-output))