Ignore:
Timestamp:
Aug 1, 2009, 3:50:08 PM (10 years ago)
Author:
gz
Message:

ftypes - r12467/r12500/r12512/r12514 from trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-clos-boot.lisp

    r12408 r12515  
    25332533)
    25342534
    2535 ;; Stub to prevent errors when the user doesn't define types
    2536 (defun type-intersect (type1 type2)
    2537   (cond ((and (null type1) (null type2))
    2538          nil)
    2539         ((equal type1 type2)
    2540          type1)
    2541         ((subtypep type1 type2)
    2542          type1)
    2543         ((subtypep type2 type1)
    2544          type2)
    2545         (t `(and ,type1 ,type2))
    2546         ;(t (error "type-intersect not implemented yet."))
    2547         ))
    2548 
    25492535(defun %add-direct-methods (method)
    25502536  (dolist (spec (%method-specializers method))
Note: See TracChangeset for help on using the changeset viewer.