/[cl-sbml]/cl-sbml/sid.lisp
ViewVC logotype

Contents of /cl-sbml/sid.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Thu May 12 17:21:30 2005 UTC (8 years, 11 months ago) by mantoniotti
Branch: MAIN
CVS Tags: HEAD
Initial manual import of CL-SBML sources and documentation.
1 ;;; -*- Mode: Lisp -*-
2
3 (in-package "CL-SBML")
4
5 (defun sid-p (x)
6 "Tests whether the argument is a valid SBML \"SId\"."
7 (and (stringp x)
8 (or (alpha-char-p (char x 0))
9 (char= #\_ (char x 0)))
10 (every (lambda (c)
11 (or (alphanumericp c)
12 (char= c #\_)))
13 x)))
14
15
16 (deftype sid ()
17 "The SBML \"SId\" type.
18 A string comprising only alphanumeric characters and underscores
19 starting with either a letter or an underscore."
20 '(satisfies sid-p))
21
22
23 ;;; end of file -- sid.lisp --

  ViewVC Help
Powered by ViewVC 1.1.5