mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-17 06:42:18 -08:00
Code Issues Projects Releases Packages Wiki Activity

We used the wrong class for the warnings

Browse source
This commit is contained in:
jjgarcia 2008-09-19 17:41:15 +00:00
parent 1c5e547036
commit 383c04e3c2
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/clos/standard.lsp
View file

@ -414,8 +414,9 @@ because it contains a reference to the undefined class~% ~A"
(error "~a is not a valid class specifier." class-or-symbol))
((find-class class-or-symbol fail))
(t
(warn 'style-warning
"Class ~A has been forward referenced." class-or-symbol)
(warn 'ext::simple-style-warning
:format-control "Class ~A has been forward referenced."
:format-arguments (list class-or-symbol))
(ensure-class class-or-symbol
:metaclass 'forward-referenced-class
:direct-superclasses (list (find-class 'standard-object))