← Back to branch summary

~ubuntu-branches/ubuntu/quantal/gclcvs/quantal

« back to all changes in this revision

Viewing changes to clcs/c/clcs_macros.data

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2004-06-24 15:13:46 UTC
  • Revision ID: james.westby@ubuntu.com-20040624151346-xh0xaaktyyp7aorc
Tags: 2.7.0-26
C_GC_OFFSET is 2 on m68k-linux

Show diffs side-by-side

added added

removed removed

Lines of Context:
clcs/c/clcs_macros.data
 
1
       
 
2
#(#! 
 
3
(lisp::in-package "CONDITIONS")
 
4
#((lisp::otherwise lisp::t) (conditions::ecase conditions::ccase conditions::etypecase conditions::ctypecase) "OTHERWISE is not allowed in ~S expressions." (lisp::otherwise lisp::t) conditions::ecase lisp::let lisp::case lisp::otherwise conditions::error (lisp::quote conditions::case-failure) :name (lisp::quote conditions::ecase) :datum :expected-type lisp::quote lisp::member :possibilities conditions::ccase lisp::block lisp::tagbody lisp::return-from conditions::restart-case (lisp::quote conditions::case-failure) (lisp::quote conditions::ccase) conditions::store-value (conditions::value) :report lisp::lambda (lisp::stream) lisp::format lisp::stream "Supply a new value of ~S." :interactive conditions::read-evaluated-form lisp::setf conditions::value lisp::go conditions::etypecase lisp::typecase (lisp::quote conditions::case-failure) (lisp::quote conditions::etypecase) lisp::or conditions::ctypecase (lisp::quote conditions::case-failure) (lisp::quote conditions::ctypecase) (conditions::value) (lisp::stream) "Supply a new value of ~S." "Retry assertion" " with new value~P for ~{~S~^, ~}." "." "The old value of ~S is ~S.~
 
5
                  ~%Do you want to supply a new value? " lisp::*query-io* "~&Type a form to be evaluated:~%" lisp::simple-type-error :format-string "The assertion ~S failed." :format-arguments lisp::unless conditions::simple-assertion-failure conditions::continue (lisp::stream) conditions::assert-report conditions::assert-prompt "~&Type a form to be evaluated:~%" lisp::if lisp::typep "The value of ~S is ~S, ~
 
6
                                     which is not ~A." "The value of ~S is ~S, ~
 
7
                                     which is not of type ~S." (conditions::value) (lisp::stream) "Supply a new value of ~S." conditions::accumulate-cases conditions::escape-special-cases-replace lisp::y-or-n-p (system::%init . #((system::mfsfun (lisp::quote conditions::accumulate-cases) 0 3) (system::mfsfun (lisp::quote conditions::escape-special-cases-replace) 1 1) (system::mm (lisp::quote conditions::ecase) 2) (system::mm (lisp::quote conditions::ccase) 3) (system::mm (lisp::quote conditions::etypecase) 4) (system::mm (lisp::quote conditions::ctypecase) 5) (system::mfsfun (lisp::quote conditions::assert-report) 6 2) (system::mf (lisp::quote conditions::assert-prompt) 7) (system::mf (lisp::quote conditions::simple-assertion-failure) 8) (system::mm (lisp::quote conditions::assert) 9) (system::mfsfun (lisp::quote conditions::read-evaluated-form) 10 0) (system::mm (lisp::quote conditions::check-type) 11) (system::debug (lisp::quote conditions::accumulate-cases) (lisp::quote (conditions::key))) (system::debug (lisp::quote conditions::assert-prompt) (lisp::quote (conditions::name conditions::value))) (system::debug (lisp::quote conditions::simple-assertion-failure) (lisp::quote (conditions::assertion))))))
 
8
)