Re: optimizing defconst

[Kim F. Storm]

Dan Nicolaescu <address@hidden> writes:

> Given this:
>
> (defconst viper-xemacs-p (featurep 'xemacs))

Does using defsubst give better results?

>
> (defun foo()
>   (if viper-xemacs-p (error "Hmmmm")))
>
>
> Shouldn't `foo' be optimized to just do nothing? 
>
> It is not:
>
> byte code for foo:
>   args: nil
> 0 varref          viper-xemacs-p
> 1 goto-if-nil-else-pop 1
> 4 constant  error
> 5 constant  "Hmmmm"
> 6 call        1
> 7:1           return      
>
> Am I missing something?

-- 
Kim F. Storm <address@hidden> http://www.cua.dk