Changeset 4714


Ignore:
Timestamp:
11/13/03 04:37:59 (18 years ago)
Author:
piso
Message:

(typep '(sk) '(cons symbol null)) => T

File:
1 edited

Legend:

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

    r4000 r4714  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: typep.lisp,v 1.7 2003-09-22 17:18:51 piso Exp $
     4;;; $Id: typep.lisp,v 1.8 2003-11-13 04:37:59 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    7272      (NOT (not (typep object (car i))))
    7373      (MEMBER (member object i))
     74      (CONS
     75       (and (consp object)
     76            (or (null (car i)) (typep (car object) (car i)))
     77            (or (null (cadr i)) (typep (cdr object) (cadr i)))))
    7478      (INTEGER
    7579       (and (integerp object) (in-interval-p object i)))
Note: See TracChangeset for help on using the changeset viewer.