/[gcl]/gcl/clcs/clcs_handler.data
ViewVC logotype

Diff of /gcl/clcs/clcs_handler.data

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3.6.1 by camm, Tue Sep 23 18:39:17 2003 UTC revision 1.3.6.2 by camm, Tue Sep 23 19:32:30 2003 UTC
# Line 1  Line 1 
1                
2  #(#!  #(#!
3  (lisp::in-package "CONDITIONS")  (lisp::in-package "CONDITIONS")
4  #("Ill-formed handler bindings." lisp::let conditions::*handler-clusters* lisp::cons lisp::list lisp::quote lisp::simple-condition conditions::signal conditions::*break-on-signals* "~A~%Break entered because of *BREAK-ON-SIGNALS*." "Ignore the additional arguments." lisp::simple-type-error :datum :expected-type lisp::null :format-string "You may not supply additional arguments ~  #(conditions::*handler-clusters* "Ill-formed handler bindings." lisp::let lisp::cons lisp::list lisp::quote conditions::*break-on-signals* lisp::simple-condition conditions::signal "~A~%Break entered because of *BREAK-ON-SIGNALS*." "Ignore the additional arguments." lisp::simple-type-error :datum :expected-type lisp::null :format-string "You may not supply additional arguments ~
5                                       when giving ~S to ~S." :format-arguments (lisp::or lisp::symbol lisp::string) "Bad argument to ~S: ~S" conditions::simple-error conditions::error conditions::*restart-clusters* :name conditions::continue :function :report-function "~A" #:g2300 "Break" "Return from BREAK." #:g2344 lisp::simple-warning conditions::warn lisp::warning conditions::store-value "Supply a new value of ~S." lisp::condition :interactive-function "The value of ~S is ~S, ~                                       when giving ~S to ~S." :format-arguments (lisp::or lisp::symbol lisp::string) "Bad argument to ~S: ~S" conditions::simple-error conditions::error conditions::*restart-clusters* :name conditions::continue :function :report-function "~A" #:g2396 "Break" "Return from BREAK." #:g2448 lisp::simple-warning conditions::warn lisp::warning conditions::store-value "Supply a new value of ~S." lisp::condition :interactive-function "The value of ~S is ~S, ~
6                                       which is not ~A." "a warning condition" #:g2392 lisp::*break-on-warnings* "~A~%Break entered because of *BREAK-ON-WARNINGS*." conditions::muffle-warning "Skip warning." #:g2428 lisp::*error-output* "~&Warning:~%~A~%" :no-error "NORMAL-RETURN" "ERROR-RETURN" lisp::block lisp::multiple-value-call lisp::function lisp::lambda lisp::return-from conditions::handler-case lisp::tagbody conditions::handler-bind (conditions::temp) lisp::setq conditions::temp lisp::go lisp::progn (conditions::error (lisp::condition) (lisp::values lisp::nil lisp::condition)) lisp::nil lisp::every conditions::coerce-to-condition lisp::typep conditions::break conditions::conditionp conditions::cerror conditions::condition-class-p conditions::make-condition conditions::invoke-debugger conditions::make-restart conditions::read-evaluated-form lisp::remove (system::%init . #((system::setvv 66 (system::mc lisp::nil 9)) (system::*make-special (lisp::quote conditions::*handler-clusters*)) (lisp::or (lisp::boundp (lisp::quote conditions::*handler-clusters*)) (lisp::setq conditions::*handler-clusters* lisp::nil)) (system::putprop (lisp::quote conditions::handler-bind) (lisp::quote 1) (lisp::quote system::pretty-print-format)) (system::mm (lisp::quote conditions::handler-bind) 0) (system::*make-special (lisp::quote conditions::*break-on-signals*)) (lisp::or (lisp::boundp (lisp::quote conditions::*break-on-signals*)) (lisp::setq conditions::*break-on-signals* lisp::nil)) (system::mf (lisp::quote conditions::signal) 1) (system::mf (lisp::quote conditions::coerce-to-condition) 2) (system::mf (lisp::quote conditions::error) 3) (system::mf (lisp::quote conditions::cerror) 4) (system::mf (lisp::quote conditions::break) 5) (system::mf (lisp::quote conditions::warn) 6) (system::mm (lisp::quote conditions::handler-case) 7) (system::mm (lisp::quote conditions::ignore-errors) 8) (system::debug (lisp::quote conditions::signal) (lisp::quote (conditions::datum conditions::arguments conditions::*handler-clusters* conditions::handler))) (system::debug (lisp::quote conditions::coerce-to-condition) (lisp::quote (conditions::datum conditions::arguments conditions::default-type conditions::function-name))) (system::debug (lisp::quote conditions::error) (lisp::quote (conditions::datum conditions::arguments))) (system::debug (lisp::quote conditions::cerror) (lisp::quote (conditions::continue-string conditions::datum conditions::arguments #:g2298))) (system::debug (lisp::quote conditions::break) (lisp::quote (conditions::format-string conditions::format-arguments #:g2342))) (system::debug (lisp::quote conditions::warn) (lisp::quote (conditions::datum conditions::arguments #:g2390 lisp::nil conditions::value))))))                                       which is not ~A." "a warning condition" #:g2500 lisp::*break-on-warnings* "~A~%Break entered because of *BREAK-ON-WARNINGS*." conditions::muffle-warning "Skip warning." #:g2536 lisp::*error-output* "~&Warning:~%~A~%" :no-error "NORMAL-RETURN" "ERROR-RETURN" lisp::block lisp::multiple-value-call lisp::function lisp::lambda lisp::return-from conditions::handler-case lisp::tagbody conditions::handler-bind (conditions::temp) lisp::setq conditions::temp lisp::go lisp::progn (conditions::error (lisp::condition) (lisp::values lisp::nil lisp::condition)) system::*make-special lisp::nil lisp::every conditions::coerce-to-condition lisp::typep conditions::break conditions::conditionp conditions::cerror conditions::condition-class-p conditions::make-condition conditions::invoke-debugger conditions::make-restart conditions::read-evaluated-form lisp::remove (system::%init . #((system::setvv 67 (system::mc lisp::nil 15)) (system::mfsfun (lisp::quote #0=#:|progn 'compile2183|) 0 0) (#0#) (system::mfsfun (lisp::quote #1=#:|progn 'compile2195|) 1 0) (#1#) (system::mfsfun (lisp::quote #2=#:|progn 'compile2208|) 2 0) (#2#) (system::putprop (lisp::quote conditions::handler-bind) (lisp::quote 1) (lisp::quote system::pretty-print-format)) (system::mm (lisp::quote conditions::handler-bind) 3) (system::mfsfun (lisp::quote #3=#:|progn 'compile2246|) 4 0) (#3#) (system::mfsfun (lisp::quote #4=#:|progn 'compile2258|) 5 0) (#4#) (system::mfsfun (lisp::quote #5=#:|progn 'compile2271|) 6 0) (#5#) (system::mfvfun (lisp::quote conditions::signal) 7 16385) (system::mf (lisp::quote conditions::coerce-to-condition) 8) (system::mf (lisp::quote conditions::error) 9) (system::mfvfun (lisp::quote conditions::cerror) 10 16386) (system::mfvfun (lisp::quote conditions::break) 11 16384) (system::mfvfun (lisp::quote conditions::warn) 12 16385) (system::mm (lisp::quote conditions::handler-case) 13) (system::mm (lisp::quote conditions::ignore-errors) 14) (system::debug (lisp::quote conditions::signal) (lisp::quote (conditions::datum conditions::arguments))) (system::debug (lisp::quote conditions::coerce-to-condition) (lisp::quote (conditions::datum conditions::arguments conditions::default-type conditions::function-name))) (system::debug (lisp::quote conditions::error) (lisp::quote (conditions::datum conditions::arguments))) (system::debug (lisp::quote conditions::cerror) (lisp::quote (conditions::continue-string conditions::datum conditions::arguments))) (system::debug (lisp::quote conditions::break) (lisp::quote (conditions::format-string conditions::format-arguments))) (system::debug (lisp::quote conditions::warn) (lisp::quote (conditions::datum conditions::arguments conditions::value))))))
7  )  )

Legend:
Removed from v.1.3.6.1  
changed lines
  Added in v.1.3.6.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26