ADVISE

[chyde@chesapeake.ads.com (Clint Hyde)]

I would like to ADVISE #'STRING to handle numbers. this sounds easy,
but I get a major crash requiring a cold-boot.

what I'm doing:

(advise string :around ()	;or whatever
  (if (numberp (car args))
      (prin1-to-string (car args))
      :do-it))

i forget precisely what I put on the first line, but it's borrowed
from another ADVISE which works fine.

any ideas?

 -- clint

Clint Hyde                      "Give me a LispM or give me death!" -- jwz

Advanced Decision Systems	Internet:  chyde@chesapeake.ads.com
2111 Wilson Blvd #800
Arlington, VA 22201		(703) 875-0327