Changeset 4000

Timestamp:

09/22/03 17:18:51 (20 years ago)

Author:

piso

Message:

TYPEP: support MEMBER compound type specifiers.

File:

• trunk/j/src/org/armedbear/lisp/typep.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/typep.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: typep.lisp,v 1.6 2003-09-20 00:52:48 piso Exp $
+;;; $Id: typep.lisp,v 1.7 2003-09-22 17:18:51 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -71 +71 @@
        nil)
       (NOT (not (typep object (car i))))
+      (MEMBER (member object i))
       (INTEGER
        (and (integerp object) (in-interval-p object i)))