[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
catching errors (continued)
- To: email@example.com
- Subject: catching errors (continued)
- From: firstname.lastname@example.org (Guillaume Cartier)
- Date: Mon, 11 Feb 91 14:04:58 EST
> I the system I am developing, I have my own top level function
> which looks something like this
> (defun my-toplevel ()
> (multiple-value-bind (result errorp)
> (when errorp
> (my-report-error result))))
> This works all fine except when an error is generated outside
> the ...body... (as an example from a fred command that gets
> executed while you are in the ...body...).
> When that appens, the error doesnt get catched and no error
> gets reported which makes debbuging code very hard.
> Has anybody experienced the same problem?
Shortly after writing this message I noticed that the fact of
having a toplevel function is independant of my problem, so I
now restate it in a simpler form.
(defobfun (make-error *fred-window*) ()
(error "An error occured."))
(def-fred-command (:control #\enter) make-error)
;; If you do a (:control #\enter) during the (read)...
;; this works fine
;; but in this case no error gets reported
LACIM, Universite du Quebec a Montreal.