Ignore:
Timestamp:
04/23/05 16:12:34 (16 years ago)
Author:
piso
Message:

Work in progress (tested).

File:
1 edited

Legend:

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

    r8784 r8970  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: typep.lisp,v 1.25 2005-03-17 15:05:09 piso Exp $
     4;;; $Id: typep.lisp,v 1.26 2005-04-23 16:11:26 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3737    (cond ((eq low '*))
    3838          ((consp low)
    39            (when (<= x (car low)) (return-from in-interval-p nil)))
     39           (when (<= x (%car low)) (return-from in-interval-p nil)))
    4040          ((when (< x low) (return-from in-interval-p nil))))
    4141    (cond ((eq high '*))
    4242          ((consp high)
    43            (when (>= x (car high)) (return-from in-interval-p nil)))
     43           (when (>= x (%car high)) (return-from in-interval-p nil)))
    4444          ((when (> x high) (return-from in-interval-p nil))))
    4545    (return-from in-interval-p t)))
     
    7676      (CONS
    7777       (and (consp object)
    78             (or (null (car i)) (eq (car i) '*) (%typep (car object) (car i)))
    79             (or (null (cadr i)) (eq (cadr i) '*) (%typep (cdr object) (cadr i)))))
     78            (or (null (car i)) (eq (car i) '*) (%typep (%car object) (car i)))
     79            (or (null (cadr i)) (eq (cadr i) '*) (%typep (%cdr object) (cadr i)))))
    8080      ((FLOAT SINGLE-FLOAT DOUBLE-FLOAT SHORT-FLOAT LONG-FLOAT)
    8181       (and (floatp object) (in-interval-p object i)))
Note: See TracChangeset for help on using the changeset viewer.