/[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.2 by camm, Wed Oct 9 03:46:33 2002 UTC revision 1.3 by camm, Mon Oct 14 05:24:42 2002 UTC
# Line 43  Line 43 
43                (with-simple-restart                (with-simple-restart
44                 (continue "~a" (apply #'format nil continue-format-string args))                 (continue "~a" (apply #'format nil continue-format-string args))
45                 (apply #'error condition-name                 (apply #'error condition-name
46                        :function-name function-name                     :function-name function-name
47                        (let ((k-a (mapcan #'list (cdr e-d) args)))                        (let ((k-a (mapcan #'list (cdr e-d) args)))
48                          (if (simple-condition-class-p condition-name)                          (if (simple-condition-class-p condition-name)
49                              (list* :format-string error-format-string                              (list* :format-string error-format-string
# Line 76  Line 76 
76  (defparameter *internal-error-list*  (defparameter *internal-error-list*
77    '(("FEwrong_type_argument" :wrong-type-argument "~S is not of type ~S."    '(("FEwrong_type_argument" :wrong-type-argument "~S is not of type ~S."
78       internal-type-error :datum :expected-type)       internal-type-error :datum :expected-type)
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) ; |<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-control-error) ; |<function>| |top - base|
83      ("FEtoo_few_argumentsF" :too-few-arguments "Too few arguments."      ("FEtoo_few_argumentsF" :too-few-arguments "Too few arguments."

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