From: Jim Meehan
Subject: Re: Question about dynamic scoping
Date: 
Message-ID: <1991Nov14.163945.23698@src.dec.com>
    I'm wondering whether that dialect supports dynamic scoping (the docs
    I have aren't clear).  Specifically, I want something like the
    following:
    
    (defun f1 (var1) (f2 10))
    (defun f2 (x) (+ var1 x))
    
    ... Is there some toggle I have to set, or something else I have to do?

Yes. You have to declare 'var1' to be special. either globally:

    (defvar var1)
    (defun f1 (var1) (f2 10))
    (defun f2 (x) (+ var1 x))

or locally:

    (defun f1 (var1) (declare (special var1)) (f2 10))
    (defun f2 (x) (declare (special var1)) (+ var1 x))