mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-10 11:12:58 -08:00
Code Issues Projects Releases Packages Wiki Activity

SUBTYPEP formerly broken when handling (EQL #C(...))

Browse source
This commit is contained in:
jjgarcia 2005-11-04 09:45:30 +00:00
parent 2bd547f0eb
commit dcf915593e
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/CHANGELOG
View file

@ -35,6 +35,8 @@ ECL 0.9h
- When a DEFMETHOD form had an incongruent lambda list, an internal error
prevented ECL from writing the proper error message.
- SUBTYPEP formerly broken when handling (EQL #C(...))
* Design:
- Simplified the structure of the frame stack, removing redundant fields.

2
src/lsp/predlib.lsp
View file

@ -642,7 +642,7 @@ if not possible."
;; We convert number into intervals, so that (AND INTEGER (NOT
;; (EQL 10))) is detected as a subtype of (OR (INTEGER * 9)
;; (INTEGER 11 *)).
(and (numberp object)
(and (realp object)
(let* ((base-type (if (integerp object) 'INTEGER (type-of object)))
(type (list base-type object object)))
(or (find-registered-tag type)