Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
70 lines (53 sloc) 1.99 KB
;;; Copyright (c) 2007, Volkan YAZICI <yazicivo@ttnet.net.tr>
;;; All rights reserved.
;;; Redistribution and use in source and binary forms, with or without
;;; modification, are permitted provided that the following conditions
;;; are met:
;;; - Redistributions of source code must retain the above copyright
;;; notice, this list of conditions and the following disclaimer.
;;; - Redistributions in binary form must reproduce the above
;;; copyright notice, this list of conditions and the following
;;; disclaimer in the documentation and/or other materials provided
;;; with the distribution.
;;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
;;; CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
;;; INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
;;; MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
;;; DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS
;;; BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
;;; EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
;;; TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
;;; DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
;;; ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
;;; TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF
;;; THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
;;; SUCH DAMAGE.
(in-package :meta-sexp)
(defatom ascii? (c)
(typep c 'standard-char))
(defatom extended? (c)
(typep c 'extended-char))
(defatom alpha? (c)
(alpha-char-p c))
(defatom alnum? (c)
(alphanumericp c))
(defatom graphic? (c)
(graphic-char-p c))
(defatom upper? (c)
(upper-case-p c))
(defatom lower? (c)
(lower-case-p c))
(defatom digit? (c)
(digit-char-p c))
(defatom bit? (c)
(or (char= c #\0)
(char= c #\1)))
(defatom space? (c)
(char= c #\space))
(defatom newline? (c)
(char= c #\newline))
(defatom tab? (c)
(char= c #\tab))
(defatom white-space? (c)
(or (space? c)
(tab? c)))