Ignore:
Timestamp:
06/26/03 02:37:48 (18 years ago)
Author:
piso
Message:

CHAR-LESSP and CHAR-GREATERP are now implemented in CharacterFunctions?.java.

File:
1 edited

Legend:

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

    r2614 r2616  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: chars.lisp,v 1.4 2003-06-26 01:27:12 piso Exp $
     4;;; $Id: chars.lisp,v 1.5 2003-06-26 02:37:22 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    104104      (return nil)))
    105105      (return nil))))
    106 
    107 
    108 (defun char-lessp (character &rest more-characters)
    109   (do* ((c character (car list))
    110   (list more-characters (cdr list)))
    111        ((atom list) T)
    112     (unless (< (equal-char-code c)
    113          (equal-char-code (car list)))
    114       (return nil))))
    115 
    116 
    117 (defun char-greaterp (character &rest more-characters)
    118   (do* ((c character (car list))
    119   (list more-characters (cdr list)))
    120        ((atom list) T)
    121     (unless (> (equal-char-code c)
    122          (equal-char-code (car list)))
    123       (return nil))))
Note: See TracChangeset for help on using the changeset viewer.