Changeset 3922

Timestamp:

09/20/03 00:52:48 (20 years ago)

Author:

piso

Message:

TYPEP: support NOT.

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.5 2003-09-16 17:59:41 piso Exp $
+;;; $Id: typep.lisp,v 1.6 2003-09-20 00:52:48 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -70 +70 @@
            (return-from typep t)))
        nil)
+      (NOT (not (typep object (car i))))
       (INTEGER
        (and (integerp object) (in-interval-p object i)))