OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- Moved utility functions from the "runes" package to the "cxml" package to

Browse Source 
avoid name conflicts with functions from "glisp" of the same name.
- Renamed defsubst to definline for the same reason.

(This is a commit to the cxml repository, not the main closure repository.
If you don't want cxml commit messages on the closure list, please complain
to me and I'll change it.)
This commit is contained in:
dlichteblau
2005-03-25 18:16:29 +00:00
parent 3c5ada1d05
commit 2691084809
16 changed files with 1721 additions and 791 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
xml/xml-name-rune-p.lisp
View File

@ -1,6 +1,11 @@
;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: XML; readtable: glisp; Encoding: utf-8; -*-
;;;; xml-name-rune-p -- character class definitions
;;;;
;;;; This file is part of the CXML parser, released under (L)LGPL.
;;;; See file COPYING for details.
;;;;
;;;; Author: Gilbert Baumann <unk6@rz.uni-karlsruhe.de>
(in-package :xml)
(in-package :cxml)
#.(funcall
(compile
@ -206,13 +211,15 @@
(setf (aref r i) 1))))) )
`(progn
(DEFSUBST NAME-RUNE-P (RUNE)
(DEFINLINE NAME-RUNE-P (RUNE)
(SETF RUNE (RUNE-CODE RUNE))
(AND (<= 0 RUNE ,*max*)
(LOCALLY (DECLARE (OPTIMIZE (SAFETY 0) (SPEED 3)))
(= 1 (SBIT ',(predicate-to-bv #'name-rune-p)
(THE FIXNUM RUNE))))))
(DEFSUBST NAME-START-RUNE-P (RUNE)
(DEFINLINE NAME-START-RUNE-P (RUNE)
(SETF RUNE (RUNE-CODE RUNE))
(AND (<= 0 RUNE ,*MAX*)
(LOCALLY (DECLARE (OPTIMIZE (SAFETY 0) (SPEED 3)))
(= 1 (SBIT ',(predicate-to-bv #'name-start-rune-p)
(THE FIXNUM RUNE)))))))) ))))
(THE FIXNUM RUNE)))))))) ))))