HDTenEightyP/NetNews huggingface dataset:
From: hta@boheme.er.sintef.no (Harald Tveit Alvestrand)
Subject: BUG? in 4.035: length($`) is strange
Reply-To: harald.alvestrand@delab.sintef.no
Organization: SINTEF DELAB, Norway
Date: Wed, 29 Jul 92 21:30:32 GMT

Environment: Sun-4, SunOS 4.1.1, cc used for compilation.
Also fails on HP-UX 8.0.whatever, HP-710 (different length, thou....)


----------------- Cut here ------------------
#!/local/bin/perl
$_ = "  0049    56 |  |  |  Standard Attribute List";
if (/Standard Attribute List/) {
   $indent = length($`);
   $var = $`;
   $len = length($var);
   print "Indent set to $indent, length of $`\n";
   print "Len set to $len, length of $var\n";
}
--------------- Cut here -------------------

Result of run with PERL version 4.0, patchlevel 35:

Indent set to 475080, length of   0049    56 |  |  |  
Len set to 22, length of   0049    56 |  |  |  

Result of run with PERL version 3.018:

Indent set to 22, length of   0049    56 |  |  |  
Len set to 22, length of   0049    56 |  |  |  

As you can see, I already have a workaround, but I do not like bugs....
can someone check if it is problematic in other versions, too?
-- 
                   Harald Tveit Alvestrand
Harald.Alvestrand@delab.sintef.no
C=no;PRMD=uninett;O=sintef;OU=delab;S=alvestrand;G=harald
+47 7 59 70 94
Newsgroups: comp.lang.perl
From: ddh@mtu.edu (DAVID HALE)
Subject: Perl archive site?
Organization: Michigan Technological University
Distribution: na
Date: Tue, 21 Jul 1992 18:36:39 GMT

  Is there any ftp site that archives perl scripts?

  Thanks,
  -Dave
-- 
Dave Hale                 "And the man in the mirror had sad eyes" - Marillion
ddh@orage.mi.org               Heart Of Lothian, Misplaced Childhood '85

------------ uuencoded version of my public key for pgp encryption ------------
Newsgroups: comp.lang.perl
From: Tom Christiansen <tchrist@convex.COM>
Subject: Re: or puzzlement
Originator: tchrist@pixel.convex.com
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: CONVEX Realtime Development, Colorado Springs, CO
Date: Thu, 23 Jul 1992 19:40:53 GMT
X-Disclaimer: This message was written by a user at CONVEX Computer
              Corp. The opinions expressed are those of the user and
              not necessarily those of CONVEX.

From the keyboard of kent@manzi.unx.sas.com (Paul Kent):
:# how to generalize that comma trick to "next" ...

Hey guys, there's nothing wrong with a few braces, or parens.

:for $d ($d1,$d2)
:{
:    opendir(D, $d) || warn "loop_comma: no $d", next;
:    print STDERR "loop_comma: $d must exist cuz we got this far\n"; 
:}

You want:

    for $d ($d1,$d2) {
	opendir(D, $d) || warn("loop_comma: no $d"), next;
	print STDERR "loop_comma: $d must exist cuz we got this far\n"; 
    }

or

    for $d ($d1,$d2) {
	opendir(D, $d) || do { warn "loop_comma: no $d"; next; }
	print STDERR "loop_comma: $d must exist cuz we got this far\n"; 
    }


or

    for $d ($d1,$d2) {
	unless (opendir(D, $d)) {
	    warn "loop_comma: no $d"; 
	    next;
	}
	print STDERR "loop_comma: $d must exist cuz we got this far\n"; 
    }


--tom
-- 
    Tom Christiansen      tchrist@convex.com      convex!tchrist

    #else /* !STDSTDIO */     /* The big, slow, and stupid way */
        --Larry Wall in str.c from the perl source code
From: nall@sun8.scri.fsu.edu (John Nall)
Newsgroups: comp.lang.perl
Subject: Small subset of Perl....
Date: 23 Jul 92 17:48:48 GMT
Followup-To: comp.lang.perl
Organization: SCRI, Florida State University

The subject is misleading, and I should be shot for even
posting this...especially after saying "yes" to the stern
warning message about wasting resources.

Nevertheless - may as well be hung for a wolf as for a
sheep, or something like that.

Would a small subset of Perl be called Mini-Perl???

John
(p.s.  Meaningless if you're not an old time Opry fan.
And probably even if you are.)


--
John W. Nall              | Supercomputer Computations Research Institute
nall@mailer.scri.fsu.edu  | Florida State University, Tallahassee, FL 32306
    "You cannot be a beacon, if yo' light don't shine!"  
                                            - heard on the car radio...
Newsgroups: comp.lang.perl
From: bwild@fzi.de
Subject: Re: Manipulating Framemaker files with perl?
Reply-To: bwild@fzi.de
Organization: FZI Forschungszentrum Informatik, Karlsruhe, Germany
Date: Tue, 28 Jul 1992 07:11:26 GMT

In article <363@ittc.wec.com> fitch@ittc.wec.com (Ken Fitch) writes:
> Does anyone know how (and if it is possible) to use perl to 
> perform global replacements on files which are in Framemaker
> format?
> 
> We have a large number of software documentation files in
> Frame, and for each project we have to go into each file
> and change the project-specific information.  I'd like to
> be able to say something like
> 
> perl -pi -e 's/PROJECT1/PROJECT2/g' list_of_files...
> 
> When I try this, Frame refuses to read the resulting file
> (it has been corrupted somehow).  Any clues anyone?
> 
We use Perl frequently to construct MIF files for Framemaker from plain Lisp  
source code and I found it very convenient to have a TeX-like textual  
representation of my publication which can be manipulated by ordinary UNIX  
tools. The only thing to look for is to store your texts in MIF format before  
manipulating them. You will run into big trouble when changing something in the  
binary format.
--
Bernd Wild

===============================================
Bernd Wild                                       
Forschungszentrum Informatik FZI
Dept. Technical Expert Systems and Robotics
Newsgroups: comp.lang.perl
From: jmay@ctp.com (Jason May)
Subject: Setting perl variables from C
Date: Thu, 30 Jul 1992 23:41:27 GMT
Organization: Cambridge Technology Partners


How can I set the value of a perl variable from a C function linked in
via uperl.o?  I've figured out that I can retrieve the value of a perl
scalar with

	STAB *stab;
	char *val;
	stab = stabent (name, FALSE);
	val = (char *)str_get (stab_val (stab));

While we're at it, how can I set and read array and assoc. array elements
from C?  Tom?  Larry?

Thanks,
-Jason (jmay@ctp.com)
Newsgroups: comp.lang.perl
From: daniel@nstn.ns.ca (Daniel MacKay)
Subject: Multiple listeners to a data source
Organization: NSTN Network Operations Centre, Nova Scotia, Canada
Date: Wed, 29 Jul 1992 14:56:54 GMT

Hello!

I will be bringing up a data source in a few days, (it's a connection to a
weather satellite) that I'd like people to be able to just telnet to a port
on my machine, and listen in on- say, five or ten people, all with the same
data scrolling by, kind of like a broadcast ticker tape machine.

I'm looking for suggestions about how to do it.  The boneheaded solution is
to set up a "tail -f" on a file that the data's being dumped into- but I
was hoping to not save the data- it's jillions of lines a day.

The data will be arriving on a TCP port to which a Perl program will be
attached; the program will pull out selected data sets and pop them into
individual files.  But I'd also like to make the raw data available to
whoever wants it in real time.

However- I don't have a clue about how to implement it.  A clunky solution
would be to build a server into the data-consumption program, that accepted
connections and then fed copies of each line of data to the standard input of
all its children.  But that seems kinda clunky.

Any ideas would be appreciated.  Thanks!
--
	Daniel MacKay				daniel@nstn.ns.ca
	NOC Manager, NSTN Operations Centre	902-494-NSTN
	Dalhousie University, Halifax, Nova Scotia, Canada
Newsgroups: comp.lang.perl
From: hamjavar@carina.unm.edu (Farid Hamjavar)
Subject: ThankS 4 FAQ
Date: Mon, 27 Jul 92 21:25:07 GMT
Organization: University of New Mexico, Albuquerque


Thanks to following poeple for e-mailing me the FAQ for this news group.

tchrist@pixel.convex.com
henkp@cs.ruu.nl


Thanks again
Farid Hamjavar
hamjavar@carina.unm.edu

Newsgroups: comp.lang.perl
From: flee@cs.psu.edu (Felix Lee)
Subject: Perl meets shell
Date: Wed, 22 Jul 1992 07:45:05 GMT

I've been slowly collecting a pile of Perl routines that I want to use
in both shell scripts and Perl scripts.  But it's rather awkward to
arrange for this to happen.

Presumably, in Perl, you would do something like
	require 'fqdn.pl';
	$y = &fqdn($x);

And in shell you would do
	y=`fqdn $x`
or
	cat list | fqdn

Supporting the shell usage requires writing a wrapper that applies the
routine to @ARGV or <STDIN>.  The awkward part is this same wrapper
has to be written for every little routine in the library.

Instead, what I have right now are two Perl programs, "perl-apply" and
"perl-map", that can be used like so:
	y=`perl-apply fqdn $x`
	cat list | perl-map fqdn
	perl-map fqdn `cat list`

"perl-apply proc args" locates proc, loads it, calls proc with all the
args, and prints the result.

"perl-map proc args" locates proc, loads it, calls proc on each arg
(or on each line of STDIN), and prints each result on a separate line.

This still isn't ideal.  The shell usage is somewhat messy.

It would be nice if the same file could be used for both purposes.
This requires a way for the file to know whether it's being run as a
script, or loaded with "require" (or "do").

Here's one approach.  If you put something like
	#!/usr/bin/wrapper
at the top of the file, this will get ignored.  Unfortunately, the
wrapper has to be a binary executable.

Perhaps the wrapper could be Perl itself, with a new flag.
Something like:
	#!/usr/bin/perl -Emain
The "-Emain" means that the procedure "main" should be called after
the file is loaded, after all the immediate statements are executed,
before exiting.

Does this seem reasonable?  It still seems messy.

(Why doesn't Unix fit together smoothly on all levels? sigh.)
--
Newsgroups: comp.lang.perl
From: good@gdwest.gd.com (David L. Good)
Subject: Re: bug in ctime.pl?
Organization: General Dynamics Corp.
Date: Wed, 22 Jul 1992 23:47:20 GMT

In article <1992Jul21.201121.15732@nic.unh.edu> pas@anchor.unh.edu (Paul A Sand) writes:
>Based on some peculiar behavior, I looked at the ctime.pl library
>file. It contains the line:
>
>     $year += ($year < 70) ? 2000 : 1900;
>
>where $year is one of the elements returned from gmtime() or
>localtime(). Looking at the definitions of what *those* return,
>it seems the statement should be simply:
>
>    $year += 1900;
>
>Or am I missing something subtle?

Well, if as you state (and the man pages for both our Suns and HPs) the tm
structure used in C uses years since 1900 for tm_year, the original line
will still work.  In fact, $year will _never_ be less than 70 (unless
somebody sets their clock back for kicks or to be able to use time-bombed
vendor software :-), so there's no problem.  If, on the other hand, someone
has a brain-dead UNIX (brain-dead, because there's no reason not to return
"years since 1900" instead of "years since the beginning of the century"
since there's plenty of room in even an 8-bit "int" for numbers greater
than 99) that would return "0" for tm_year on Jan 1, 2000, the first line
will _still_ work (at least for another 100 years :-). 

So...although it may seem a waste, ctime.pl is probably doing the right thing.

-- 
David Good                                               good@gdwest.gd.com

                 This space intentionally left blank.
From: buzz@toxicavenger.bear.com (Buzz Moschetti)
Newsgroups: comp.lang.perl
Subject: Re: Process question...
Date: 23 Jul 92 00:55:52 GMT
Reply-To: buzz@fsrg.bear.com
Organization: Bear, Stearns & Co. Inc.
In-reply-to: mcmahan@cs.unca.edu's message of 22 Jul 92 23:16:37 GMT

In article <1992Jul22.231637.23043@cs.unca.edu> mcmahan@cs.unca.edu (Scott McMahan -- Genesis mailing list owner) writes:

   This has stumped me.

   I want to fork off a process, but be able to read the forked 
   processes' stdout in the parent, as well as feed the forked process
   stdin from the parent. Preferably an execed process. :)

   ________________
   | main  ^    V |
   ________|____|_|
	  ?|   ?|         stdin   __________________
	   |    |---------------->| forked process |
	   |                      -----V------------
	   |<--------------------------| stdout

   How to do this in perl has baffled me, and I don't see it in the FAQ. 
   I suspect there's some kind of file or pipe involved, but beyond that
   I'm lost.

   [...deleted...]

Check out Randall's chat2.pl in your perl's library distribution.  It
uses pty's, but you can probably hack to suit your needs.
Newsgroups: comp.lang.perl
From: Tom Christiansen <tchrist@convex.COM>
Subject: Re: X thing to get string?
Originator: tchrist@pixel.convex.com
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: CONVEX Realtime Development, Colorado Springs, CO
Date: Thu, 23 Jul 1992 03:29:31 GMT
X-Disclaimer: This message was written by a user at CONVEX Computer
              Corp. The opinions expressed are those of the user and
              not necessarily those of CONVEX.

From the keyboard of mcmahan@cs.unca.edu (Scott McMahan -- Genesis mailing list owner):
:I like the brute-force method, and the path-of-least-resistance.
:xterm -e is very much both ;)
:
:Any chance of getting
:
:Motifperl
:
:with Motif integrated into perl the same way curses & stuff is?
:
:That would be *the* best windows programming environment ever
:designed. :)

Motif is too complex.  Let someone else make the decisions for
you, and accept a simpler library.

--tom
-- 
    Tom Christiansen      tchrist@convex.com      convex!tchrist

    The human mind ordinarily operates at only ten percent of its capacity
    -- the rest is overhead for the operating system.
From: sharon@netlabs.com (Sharon Hopkins)
Newsgroups: comp.lang.perl
Subject: Re: # of files in directory
Keywords: Files, Perl, Directory, ls
Date: 24 Jul 92 16:31:17 GMT
Reply-To: sharon@netlabs.com (Sharon Hopkins)
Organization: Netlabs, Inc.

In article <1992Jul24.153838.29143@magnus.acs.ohio-state.edu> bobd@magnus.acs.ohio-state.edu (Bob DeBula) writes:
>In article <1992Jul23.225715.21531@news.eng.convex.com> tchrist@convex.COM (Tom Christiansen) writes:
>>Sigh, pretty as it sounds, I lament to inform you that penultimate doesn't
>>mean more than ultimate.  Ultimate often means last in modern dialects of
>>Latin.  Penultimate means second to the last, and antepenultimate means
>>third to the last.
>
>[...]
>Of course, "penultimate" in my intended usage has about as much meaning
>as "new improved super infinity" or "infinity to the infinite power",
>but that was my intention. :-) :-)
>
>I guess I could live with conceding that it might have some
>infinitesimal pointfulness (or be slightly less pointless than
>something else) in order to keep the name the "Penultimately 
>Pointless PERL Programming Problem".

Since no potential perl problem could possibly be as pointless as producing
parse-able perl poetry, "penultimate" is probably proper.   :-)

print "Just another Perl poet,"

--Sharon Hopkins
  sharon@netlabs.com

    "As to the pure mind all things are pure, so to the poetic mind
	 all things are poetical."        -- Longfellow
Newsgroups: comp.lang.perl
From: mike@meiko.com (Mike Stok)
Subject: Re: X thing to get string?
Organization: Meiko Scientific Corp.
Date: Thu, 23 Jul 1992 11:15:03 GMT

In article <1992Jul22.221146.22436@cs.unca.edu> mcmahan@cs.unca.edu (Scott McMahan -- Genesis mailing list owner) writes:
>I like the brute-force method, and the path-of-least-resistance.
>xterm -e is very much both ;)
>
>Any chance of getting
>
>Motifperl
>
>with Motif integrated into perl the same way curses & stuff is?
>
>That would be *the* best windows programming environment ever
>designed. :)
>
>(I'm trying to learn enough motif to do what I want -- I'll probably share
>the results in alt.sources, so stay tuned...)

Wafe is pretty good, as it uses Athena widgets you get a fairly
neutral look & feel decorated by your favourite window manager.  So if
you like the way OpenLook looks or how Motif makes all components look
the same then you get those.  Also you get a stack of Perl demos in
the Wafe distribution... 

Mike


--
The "usual disclaimers" apply.    | ... many were weak and confused, succumbing
Mike Stok                         | to drink or drugs whenever possible ...
mike@meiko.com                    |
Meiko tel: (617) 890 7676         |                          Hunter S. Thompson
Newsgroups: comp.lang.perl
From: roehrich@cray.com (Dean Roehrich)
Subject: Re: # of files in directory
Keywords: Files, Perl, Directory, ls
Organization: Cray Research, Inc.
Date: 23 Jul 92 17:50:29 CDT

In article <1992Jul23.211249.21744@magnus.acs.ohio-state.edu> bobd@magnus.acs.ohio-state.edu (Bob DeBula) writes:
>In article <1992Jul23.201539.4416@news.eng.convex.com> tchrist@convex.COM (Tom Christiansen) writes:
>>From the keyboard of bobd@magnus.acs.ohio-state.edu (Bob DeBula):
>>:To reduce it still further (this *is* PERL after all):
>>:
>>:opendir (FILE, "/usr/bin");
>>:print "There are ", scalar(grep (!/^\./, readdir (FILE))), " files!\n";
>>:
>>:Now if I could just figure out how to embed the open in the print
>>:statement.....
>>
>>print "There are ", scalar grep(1,`ls /usr/bin/`), " files in /usr/bin.\n";


A one-liner?  You people forgot to close FILE :)
Here you go:


print( "There are ", scalar( opendir( FILE, "/usr/bin/" ),
     @files = grep (!/^\./, readdir (FILE))), " files!\n") && close FILE;



Dean Roehrich
roehrich@cray.com


p.s. Didn't the original poster want to keep the file names?
From: mayers@philemon.IRO.UMontreal.CA (Andre Mayers)
Newsgroups: comp.lang.clos
Subject: where is the bug in the use of slot-value-using-class
Date: 24 Jul 92 17:03:18 GMT
Organization: Universite de Montreal -- Laboratoire Incognito


Does someone know what I am doing wrong in the following program:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -*- Mode: Lisp -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defclass 
    meta-obj-meta-class 
    (clos::standard-class)
    ((instances-list :accessor instances-list )))

(defparameter name-of-class
  (defclass meta-obj-class () 
	    ((forme   :accessor forme   :initarg :forme  )
	     (contenu :accessor contenu :initarg :contenu))
    (:metaclass  meta-obj-meta-class )))


(defmethod 
    (setf clos:slot-value-using-class)  
    (valeur 
     (class meta-obj-meta-class) 
     (objet standard-object) 
     (slot-name (eql 'contenu)))
  (declare (ignore valeur))
  (print 'primary-method)
  (call-next-method))

(defmethod 
    (setf clos:slot-value-using-class) :before 
    (valeur 
     (class meta-obj-meta-class) 
     (objet standard-object) 
     (slot-name (eql 'contenu)))
  (declare (ignore valeur))
  (print 'before))

(defmethod 
    (setf clos:slot-value-using-class) :after 
    (valeur 
     (class meta-obj-meta-class) 
     (objet standard-object) 
     (slot-name (eql 'contenu)))
  (declare (ignore valeur))
  (print 'after))


(defun biz (x)
  (make-instance 'meta-obj-class :contenu x))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -*- END -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

The problem is that the evaluation of (biz "x") doesn't give the same
result depending if the code is interpreted or compiled as you can see below:


Allegro CL 4.1 [SPARC; R1] (7/2/92 11:39)
Copyright (C) 1985-1992, Franz Inc., Berkeley, CA, USA.  All Rights Reserved.

; Loading home init file. 

 (compose) pour partir le composer 
;; Optimization settings: safety 3, space 0, speed 0, debug 3
;; For a complete description of all compiler switches given the current
;; optimization settings evaluate (EXPLAIN-COMPILER-SETTINGS).

;; Starting socket daemon and emacs-lisp interface...

>>>>>>> the code is interpreted

USER(1): (biz "x")

BEFORE 
PRIMARY-METHOD 
AFTER 
#<META-OBJ-CLASS @ #xd1f33e>

>>>>>>>> the code is compliled

USER(2): (biz "x")
#<META-OBJ-CLASS @ #xe43ee6>

>>>>>>>> but outside "biz", "make-instance" behave properly   
USER(3): (make-instance 'meta-obj-class :contenu "x")

BEFORE 
PRIMARY-METHOD 
AFTER 
#<META-OBJ-CLASS @ #xe4516e>

USER(4): 
-------------------------------------------------------------------------

Does someone know how to use the following generic functions:
map-dependents, add-dependents and remove-dependents?

-------------------------------------------------------------------------


Andre Mayers
Departement d'informatique et de recherche operationnelle
Universite de Montreal
C. P. 6128, succursale "A"
Montreal, P. Quebec, 
Canada
H3C 3J7

--
-----------------------------------------
Andre Mayers (mayers@iro.UMontreal.CA)
-----------------------------------------
Newsgroups: comp.lang.clos
From: kanderso@bbn.com
Subject: Re: Deleting an Instance
Organization: The Ohio State University Department of Computer and Information Science
Date: Thu, 30 Jul 1992 09:57:08 GMT

  To: comp.lang.clos@cis.ohio-state.edu
  Date: Thu, 30 Jul 1992 16:27:53 GMT
  Organization: Massachusetts Institute of Technology
  From: "R. Whitney Winston" <wwinston@athena.mit.edu>
  Sender: commonloops-request@cis.ohio-state.edu
  Subject: Deleting an Instance
  
  
  How can I remove an instance?
  The problem is that I'm creating about 25,000 instances
  but after about 4000 instances, I run out of memory; however,
  I don't need more than 1000 at a time.  As soon as I finish
  with the first 1000, I no longer need them and they can
  be forgotten.  How can I get rid of the unnecessary instances
  after I've used them?

Let go of the objects.  They should be automatically garbage collected,
like anything else.  You application must keep a reference to them somewhere.. 
Newsgroups: comp.lang.clos
From: dinitz@tekbspa.UUCP
Subject: Re: Deleting an Instance? -- Just Forget It!
Organization: The Ohio State University Department of Computer and Information Science
Date: Thu, 30 Jul 1992 07:31:58 GMT

>re: How can I get rid of the unnecessary instances after I've used them?
>
>By not "pointing" at them.   Let the GC do it's thing.


 One of the great joys of Lisp is that you really can make things go
away just by forgetting about them.

 But as JonL and others point out, forgetting means cutting loose from
_all_ reachable references.


 -Rick

*-------------------------------*
| Copyright 1992, Rick Dinitz	|
| dinitz@tss.com		|
*-------------------------------*
Newsgroups: comp.lang.clos
From: jonl%kuwait@lucid.com (Jon L White)
Subject: making load form of a 'defclass
Organization: The Ohio State University Department of Computer and Information Science
Date: Tue, 28 Jul 1992 19:34:29 GMT

re: The initform, initarg, reader, and writer did not print as they were
    supposed to!  In their place we find the '#'.  But... after I return
    from the debugger, everything works fine (for a while):

Could it be that you were confused by the # used by the print elision
routines?  I.e., when you are in the debugger, there is some small
setting for *PRINT-LENGTH* and *PRINT-LEVEL*; check out the values of
*DEBUG-PRINT-LENGTH* and  *DEBUG-PRINT-LEVEL*.


-- JonL --
Organization: Masters student, Civil Engineering, Carnegie Mellon, Pittsburgh, PA
Newsgroups: comp.lang.clos
Date: Sat, 25 Jul 1992 12:19:29 -0400 
From: Gary Hooyman <gh1h+@andrew.cmu.edu>
Subject: test


please ignore, my last two posts have not shown up
Newsgroups: comp.lang.clos
From: jonl%kuwait@lucid.com (Jon L White)
Subject: return-from GF with : after methods?
Organization: The Ohio State University Department of Computer and Information Science
Date: Tue, 28 Jul 1992 20:32:34 GMT

re: ... how do I exit from a primary method such that :after method 
    are skipped? I'd like to avoid use of THROW and non-standard method 
    combination. 

(1) THROW, in Lucid's implementations, won't be noticeably different
    in performance than a non-local lexical exit, such as *might* be
    needed with your RETURN-FROM;

(2) You coudl use an :AROUND method, and invoke the primary method 
    with APPLY-METHOD (if that works ok in 4.0.2 -- it does in 4.1);
    Although you'd still have "standard" method combination, this
    particular function isn't part of any "standard".


By the bye, what was the source code?  exactly what "tag" did you
return from in your primary method?


-- JonL --