Changeset 4810


Ignore:
Timestamp:
11/17/03 16:31:01 (18 years ago)
Author:
piso
Message:

TYPEP: (typep '(a b) '(cons *)) => T

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/typep.lisp

    r4808 r4810  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: typep.lisp,v 1.11 2003-11-17 16:04:54 piso Exp $
     4;;; $Id: typep.lisp,v 1.12 2003-11-17 16:31:01 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    7474      (CONS
    7575       (and (consp object)
    76             (or (null (car i)) (typep (car object) (car i)))
    77             (or (null (cadr i)) (typep (cdr object) (cadr i)))))
     76            (or (null (car i)) (eq (car i) '*) (typep (car object) (car i)))
     77            (or (null (cadr i)) (eq (cadr i) '*) (typep (cdr object) (cadr i)))))
    7878      (INTEGER
    7979       (and (integerp object) (in-interval-p object i)))
Note: See TracChangeset for help on using the changeset viewer.