Re: Tiny example of simple-parse-error query problem?

• To: Curt Eggemeyer <curt@eraserhead.jpl.nasa.gov>
• Subject: Re: Tiny example of simple-parse-error query problem?
• From: Jeff Morrill <jmorrill@BBN.COM>
• Date: Wed, 24 Jun 92 11:40:49 -0400
• Cc: clim@BBN.COM, jmorrill@BBN.COM
• In-Reply-To: Curt Eggemeyer's message of Wed, 24 Jun 92 08:08:59 -0700. <9206241508.AA00452@eraserhead.Jpl.Nasa.Gov>
• Reply-To: jmorrill@BBN.COM

  Date: Wed, 24 Jun 92 08:08:59 PDT
  From: Curt Eggemeyer <curt@eraserhead.jpl.nasa.gov>
  To: SWM@stony-brook.scrc.symbolics.com
  Subject: Tiny example of simple-parse-error query problem?
  Cc: cl-bugs@franz.com, jmorrill@BBN.COM
  
  (define-command
    (com-test-that-doesn't-work
        :command-table your-command-table :name t) ()
      (accept-from-string 'my-odd-one "4"))
  
If CLIM won't handle it, you can do it yourself:

(define-command
  (com-test-that-does-work :command-table your-command-table :name t) ()
    (handler-case
       (accept-from-string 'my-odd-one "4")
      (simple-parse-error (condition)
         (format t "~%Oops, you goofed.")
         (let ((*print-escape* nil)) (print condition)))))

• Prev: Re: simple-parse-error query - maybe potential problem?
• Next: How to manually poll for events
• Index: CLIM Mailing list (1-Jan-92 to 31-Aug-92)
• Thread: CLIM Mailing list Index (1-Jan-92 to 31-Aug-92)