Changeset 3783 for trunk/j/src/org/armedbear/lisp/typep.lisp

Timestamp:

09/14/03 17:57:45 (20 years ago)

Author:

piso

Message:

TYPEP: AND, OR

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.3 2003-09-14 12:25:27 piso Exp $
+;;; $Id: typep.lisp,v 1.4 2003-09-14 17:57:45 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -43 +43 @@
         (i (cdr type)))
     (case tp
+      (AND
+       (dolist (type i)
+         (unless (typep object type)
+           (return-from typep nil)))
+       t)
+      (OR
+       (dolist (type i)
+         (when (typep object type)
+           (return-from typep t)))
+       nil)
       (SIMPLE-BIT-VECTOR
        (and (simple-bit-vector-p object)