{
{   This request returns a pointer to the body of an SCL procedure module in
{ object library.
{
{       CLP$FIND_SCL_PROC_IN_LIBRARY (OBJECT_LIBRARY, OBJECT_LIBRARY_NAME,
{         PROCEDURE_NAME, SCL_PROCEDURE, STATUS)
{
{ OBJECT_LIBRARY: (input) This parameter specifies the object library as a
{       SEQuence.
{
{ OBJECT_LIBRARY_NAME: (input) This parameter specifies the name of the
{       object library.
{
{ PROCEDURE_NAME: (input) This parameter specifies the name of the procedure
{       to be found.  It may specify any of the names by which the procedure
{       is known.
{
{ SCL_PROCEDURE: (output) This parameter specifies the pointer to the body
{       of the SCL procedure module returned by this request.  The pointer
{       is returned as a SEQuence pointer that has been RESET.  If NIL is
{       returned, the procedure could not be found in the library.
{
{ STATUS: (output) this parameter specifies the request status.
{
