Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • gerd's avatar
    23f8e9ce
    Make the type system more forgiving wrt to unknown types. · 23f8e9ce
    gerd authored
    	Temporary fix for -0d0/0d0 and member types.
    
    	* src/code/type.lisp (reparse-unknown-type): New function.
    	(type-union2, type-intersection2): Use it.
    	(hierarchical-intersection2, hierarchical-union2): Moved to
    	typedef.lisp.
    	(member): Temporary fix for -0d0/0d0 problem; Christophe Rhodes is
    	working on the real fix.
    
    	* src/code/typedefs.lisp (type-class): Use hierachical-union2
    	and hierachical-intersection2 as inits for slots simple-union
    	and simple-intersection, like SBCL does.
    	(hierarchical-intersection2, hierarchical-union2): Moved
    	here from type.lisp.
    23f8e9ce
    History
    Make the type system more forgiving wrt to unknown types.
    gerd authored
    	Temporary fix for -0d0/0d0 and member types.
    
    	* src/code/type.lisp (reparse-unknown-type): New function.
    	(type-union2, type-intersection2): Use it.
    	(hierarchical-intersection2, hierarchical-union2): Moved to
    	typedef.lisp.
    	(member): Temporary fix for -0d0/0d0 problem; Christophe Rhodes is
    	working on the real fix.
    
    	* src/code/typedefs.lisp (type-class): Use hierachical-union2
    	and hierachical-intersection2 as inits for slots simple-union
    	and simple-intersection, like SBCL does.
    	(hierarchical-intersection2, hierarchical-union2): Moved
    	here from type.lisp.