Re: c-GLOBAL-FUNCTION-CALL & seclass

[Sam S. <sd...@gn...>]

> * Bruno Haible <un...@hf...g> [2005-02-09 11:24:40 +0000]:
>
> @@ -2986,6 +3042,13 @@
>                 ;; we make the call INLINE.
>                 (let ((sideeffects ; side-effect-class of the function-execution
>                         (function-side-effect fun)))
> +                 ;; If SAFETY = 3, ANSI CL 3.5 requires us to signal errors about invalid
> +                 ;; arguments, and the simplest way to implement this requirement is to
> +                 ;; not omit the call. We don't keep track of the possibility of errors
> +                 ;; through the SECLASS currently. Therefore pretend the function has
> +                 ;; arbitrary side-effects.
> +                 (when (>= (declared-optimize 'SAFETY) 3)
> +                   (setq sideeffects *seclass-dirty*))
>                   (if (and (null *for-value*) (null (cdr sideeffects)))
>                     ;; don't have to call the function,
>                     ;; only evaluate the arguments

why not use F-SIDE-EFFECT instead of FUNCTION-SIDE-EFFECT?


-- 
Sam Steingold (http://www.podval.org/~sds) running w2k
<http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/>
<http://www.mideasttruth.com/> <http://www.honestreporting.com>
Abandon all hope, all ye who press Enter.