Ignore:
Timestamp:
03/17/04 17:55:50 (17 years ago)
Author:
piso
Message:

Moved CHAR<= to CharacterFunctions?.java.

File:
1 edited

Legend:

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

    r6177 r6313  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: chars.lisp,v 1.10 2004-03-11 09:37:09 piso Exp $
     4;;; $Id: chars.lisp,v 1.11 2004-03-17 17:55:24 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    6464      (return nil))))
    6565
    66 (defun char<= (character &rest more-characters)
    67   (do* ((c character (car list))
    68   (list more-characters (cdr list)))
    69        ((atom list) T)
    70     (unless (<= (char-int c)
    71     (char-int (car list)))
    72       (return nil))))
    73 
    7466(defun char>= (character &rest more-characters)
    7567  (do* ((c character (car list))
Note: See TracChangeset for help on using the changeset viewer.