/[gcl]/gcl/clcs/clcs_kcl_cond.lisp
ViewVC logotype

Diff of /gcl/clcs/clcs_kcl_cond.lisp

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

revision 1.2 by camm, Fri Oct 3 16:03:15 2003 UTC revision 1.3 by camm, Tue Oct 7 21:06:32 2003 UTC
# Line 98  Line 98 
98      ("FEundefined_function" :undefined-function "The function ~S is undefined."      ("FEundefined_function" :undefined-function "The function ~S is undefined."
99       internal-undefined-function :name)       internal-undefined-function :name)
100      ("FEinvalid_function" :invalid-function "~S is invalid as a function."      ("FEinvalid_function" :invalid-function "~S is invalid as a function."
101       internal-type-error) ; |obj|       internal-type-error :datum :expected-type) ; |obj|
102      ("FEinvalid_variable" :invalid-variable "~S is an invalid variable."      ("FEinvalid_variable" :invalid-variable "~S is an invalid variable."
103       internal-program-error) ; |obj|       internal-program-error) ; |obj|
104      ("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,~%\
# Line 149  but only ~R ~:*~[were~;was~:;were~] supp Line 149  but only ~R ~:*~[were~;was~:;were~] supp
149       internal-simple-stream-error :stream)       internal-simple-stream-error :stream)
150      ("cannot_write" :error "Cannot write to the stream ~S."      ("cannot_write" :error "Cannot write to the stream ~S."
151       internal-simple-stream-error :stream)       internal-simple-stream-error :stream)
152        ("" :error "" internal-simple-error)
153      ))      ))
154    
155  (initialize-internal-error-table)  (initialize-internal-error-table)

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

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