Restore CCL bootstrap

I missed a (declare inline) where renaming generic-abstract-walk-type
to generic-abstract-type-function.

H/T dougk.
This commit is contained in:
Paul Khuong 2014-06-30 15:11:20 -04:00
parent ee8f3a12b7
commit 8170663c0e

View file

@ -3913,7 +3913,7 @@ used for a COMPLEX component.~:@>"
;;; Standard list representation of sets. Use CL:* for the universe.
(defun list-abstract-type-function (type over &key under (overapproximate t))
(declare (inline generic-abstract-walk-type))
(declare (inline generic-abstract-type-function))
(generic-abstract-type-function
type overapproximate
#'union #'intersection #'set-difference