Module: variable-search
Copyright:    Original Code is Copyright (c) 1995-2004 Functional Objects, Inc.
              All rights reserved.
License:      Functional Objects Library Public License Version 1.0
Dual-license: GNU Lesser General Public License
Warranty:     Distributed WITHOUT WARRANTY OF ANY KIND

define method variable-value
    (label :: <string>, module, library, #key default) => (object)
  lookup-constant(label, #"IDVM", #"IDVM");
end method;

define method variable-value
    (label :: <symbol>, module, library, #key default) => (object)
  lookup-constant(as-lowercase(as(<string>, label)), #"IDVM", #"IDVM");
end method;

// eof