Re: [Sbcl-devel] lexenv-options

[Christophe R. <cs...@ca...>]

On Thu, Oct 10, 2002 at 09:13:40AM -0500, William Harold Newman wrote:
> On Thu, Oct 10, 2002 at 02:30:06PM +0400, Alexey Dejneka wrote:
> > I cannot find any usages of OPTIONS slot of SB-C::LEXENV
> > structure. I've rebuilt SBCL without it and all seems to work fine. Is
> > it worth to keep it?
> 
> As near as I can tell from "xargs egrep -i lexenv-option" in the
> Debian cmucl-2.4.8 tree that I keep around to remind me what I was
> thinking around the fork time, this was unused even in the original
> CMU CL code.

Apparently, it was going to be used in the GENGC, vestigial support of
which remains in the mips tree of cmucl:
  (defun check-pointer-ages-p (vop value)
    (and (sc-is value descriptor-reg)
         (let ((option (assoc :check-pointer-ages
                              (c::lexenv-options
                               (c::node-lexenv
                                (c::vop-node vop))))))
           (or (null option)
               (cdr option)))))
(mind you, that function is unused too even in the cmucl/mips tree, so I'd say
go ahead and delete it :-)

Cheers,

Christophe
-- 
http://www-jcsu.jesus.cam.ac.uk/~csr21/       +44 1223 510 299/+44 7729 383 757
(set-pprint-dispatch 'number (lambda (s o) (declare (special b)) (format s b)))
(defvar b "~&Just another Lisp hacker~%")    (pprint #36rJesusCollegeCambridge)