mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 05:12:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

Optimize some internal functions with zero safety.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-07 23:52:53 +02:00
parent 2495ae0b8e
commit 1d7ef44ed1
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/predlib.lsp
View file

@ -740,6 +740,7 @@ if not possible."
;;
(defun find-type-bounds (type in-our-family-p type-<= minimize-super)
(declare (si::c-local)
(optimize (safety 0))
(function in-our-family-p type-<=))
(let* ((subtype-tag 0)
(disjoint-tag 0)
@ -772,6 +773,7 @@ if not possible."
;;
(defun register-type (type in-our-family-p type-<=)
(declare (si::c-local)
(optimize (safety 0))
(function in-our-family-p type-<=))
(or (find-registered-tag type)
(multiple-value-bind (tag-super tag-sub)