Optimize some internal functions with zero safety.

parent 2495ae0b
...@@ -740,6 +740,7 @@ if not possible." ...@@ -740,6 +740,7 @@ if not possible."
;; ;;
(defun find-type-bounds (type in-our-family-p type-<= minimize-super) (defun find-type-bounds (type in-our-family-p type-<= minimize-super)
(declare (si::c-local) (declare (si::c-local)
(optimize (safety 0))
(function in-our-family-p type-<=)) (function in-our-family-p type-<=))
(let* ((subtype-tag 0) (let* ((subtype-tag 0)
(disjoint-tag 0) (disjoint-tag 0)
...@@ -772,6 +773,7 @@ if not possible." ...@@ -772,6 +773,7 @@ if not possible."
;; ;;
(defun register-type (type in-our-family-p type-<=) (defun register-type (type in-our-family-p type-<=)
(declare (si::c-local) (declare (si::c-local)
(optimize (safety 0))
(function in-our-family-p type-<=)) (function in-our-family-p type-<=))
(or (find-registered-tag type) (or (find-registered-tag type)
(multiple-value-bind (tag-super tag-sub) (multiple-value-bind (tag-super tag-sub)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment