/[gcl]/gcl/clcs/kcl-cond.lisp
ViewVC logotype

Diff of /gcl/clcs/kcl-cond.lisp

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

revision 1.3 by camm, Mon Oct 14 05:24:42 2002 UTC revision 1.4 by camm, Wed Oct 16 03:24:02 2002 UTC
# Line 79  Line 79 
79      ("FEpackage_error" :package-error "A package error occurred on ~S: ~S."      ("FEpackage_error" :package-error "A package error occurred on ~S: ~S."
80       internal-package-error :package :message) ; |<function>| |top - base|       internal-package-error :package :message) ; |<function>| |top - base|
81      ("FEtoo_few_arguments" :too-few-arguments "~S [or a callee] requires more than ~R argument~:p."      ("FEtoo_few_arguments" :too-few-arguments "~S [or a callee] requires more than ~R argument~:p."
82       internal-simple-control-error) ; |<function>| |top - base|       internal-simple-program-error) ; |<function>| |top - base|
83      ("FEtoo_few_argumentsF" :too-few-arguments "Too few arguments."  ;    ("FEtoo_few_argumentsF" :too-few-arguments "Too few arguments."
84       internal-simple-control-error) ; |<function>| |args|  ;     internal-simple-control-error) ; |<function>| |args|
85      ("FEtoo_many_arguments" :too-many-arguments "~S [or a callee] requires less than ~R argument~:p."      ("FEtoo_many_arguments" :too-many-arguments "~S [or a callee] requires less than ~R argument~:p."
86       internal-simple-control-error) ; |<function>| |top - base|       internal-simple-program-error) ; |<function>| |top - base|
87      ("FEtoo_many_argumentsF" :too-many-arguments "Too many arguments."  ;    ("FEtoo_many_argumentsF" :too-many-arguments "Too many arguments."
88       internal-simple-control-error) ; |<function>| |args|  ;     internal-simple-control-error) ; |<function>| |args|
89      ("FEinvalid_macro_call" :invalid-form "Invalid macro call to ~S."      ("FEinvalid_macro_call" :invalid-form "Invalid macro call to ~S."
90       internal-simple-program-error) ; |<function>|       internal-simple-program-error) ; |<function>|
91      ("FEunexpected_keyword" :unexpected-keyword "~S does not allow the keyword ~S."      ("FEunexpected_keyword" :unexpected-keyword "~S does not allow the keyword ~S."
92       internal-simple-control-error) ; |<function>| |key|       internal-simple-program-error) ; |<function>| |key|
93      ("FEunbound_variable" :unbound-variable "The variable ~S is unbound."      ("FEunbound_variable" :unbound-variable "The variable ~S is unbound."
94       internal-unbound-variable :name) ; |sym|       internal-unbound-variable :name) ; |sym|
95      ("FEundefined_function" :undefined-function "The function ~S is undefined."      ("FEundefined_function" :undefined-function "The function ~S is undefined."
# Line 98  Line 98 
98       internal-simple-program-error) ; |obj|       internal-simple-program-error) ; |obj|
99      ("check_arg_failed" :too-few-arguments "~S [or a callee] requires ~R argument~:p,~%\      ("check_arg_failed" :too-few-arguments "~S [or a callee] requires ~R argument~:p,~%\
100  but only ~R ~:*~[were~;was~:;were~] supplied."  but only ~R ~:*~[were~;was~:;were~] supplied."
101       internal-simple-control-error) ; |<function>| |n| |top - base|       internal-simple-program-error) ; |<function>| |n| |top - base|
102      ("check_arg_failed" :too-many-arguments "~S [or a callee] requires only ~R argument~:p,~%\  ;    ("check_arg_failed" :too-many-arguments "~S [or a callee] requires only ~R argument~:p,~%\
103  but ~R ~:*~[were~;was~:;were~] supplied."  ;but ~R ~:*~[were~;was~:;were~] supplied."
104       internal-simple-control-error) ; |<function>| |n| |top - base|  ;     internal-simple-program-error) ; |<function>| |n| |top - base|
105      ("ck_larg_at_least" :error "APPLY sended too few arguments to LAMBDA."      ("ck_larg_at_least" :error "APPLY sended too few arguments to LAMBDA."
106       internal-simple-control-error)       internal-simple-control-error)
107      ("ck_larg_exactly" :error "APPLY sended too few arguments to LAMBDA."      ("ck_larg_exactly" :error "APPLY sended too few arguments to LAMBDA."
108       internal-simple-control-error)       internal-simple-control-error)
109      ("keyword_value_mismatch" :error "Keywords and values do not match."      ("keyword_value_mismatch" :error "Keywords and values do not match."
110       internal-simple-error) ;??       internal-simple-program-error) ;??
111      ("not_a_keyword" :error "~S is not a keyword."      ("not_a_keyword" :error "~S is not a keyword."
112       internal-simple-error) ;??       internal-simple-program-error) ;??
113      ("illegal_declare" :invalid-form "~S is an illegal declaration form."      ("illegal_declare" :invalid-form "~S is an illegal declaration form."
114       internal-simple-program-error)       internal-simple-program-error)
115      ("not_a_symbol" :invalid-variable "~S is not a symbol."      ("not_a_symbol" :invalid-variable "~S is not a symbol."
# Line 120  but ~R ~:*~[were~;was~:;were~] supplied. Line 120  but ~R ~:*~[were~;was~:;were~] supplied.
120       internal-simple-error)       internal-simple-error)
121      ("vfun_wrong_number_of_args" :error "Expected ~S args but received ~S args"      ("vfun_wrong_number_of_args" :error "Expected ~S args but received ~S args"
122       internal-simple-control-error)       internal-simple-control-error)
       
123      ("end_of_stream" :error "Unexpected end of ~S."      ("end_of_stream" :error "Unexpected end of ~S."
124       internal-end-of-file :stream)       internal-end-of-file :stream)
125      ("open_stream" :error "~S is an illegal IF-DOES-NOT-EXIST option."      ("open_stream" :error "~S is an illegal IF-DOES-NOT-EXIST option."

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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