From: Christophe R. <cr...@us...> - 2004-09-07 10:08:59
|
Update of /cvsroot/sbcl/sbcl/src/compiler In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21703/src/compiler Modified Files: Tag: character_branch typetran.lisp Log Message: 0.8.13.77.character.12: "Just what the little chap needs" Reintroduce SB-KERNEL:BASE-CHAR-P Index: typetran.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/typetran.lisp,v retrieving revision 1.41.4.2 retrieving revision 1.41.4.3 diff -u -d -r1.41.4.2 -r1.41.4.3 --- typetran.lisp 24 Aug 2004 14:47:20 -0000 1.41.4.2 +++ typetran.lisp 7 Sep 2004 10:08:39 -0000 1.41.4.3 @@ -115,7 +115,6 @@ ;;; just expand all its operations into toplevel code? (defun !define-standard-type-predicates () (define-type-predicate arrayp array) - ; (The ATOM predicate is handled separately as (NOT CONS).) (define-type-predicate bit-vector-p bit-vector) (define-type-predicate characterp character) (define-type-predicate compiled-function-p compiled-function) @@ -141,13 +140,11 @@ (define-type-predicate symbolp symbol) (define-type-predicate vectorp vector)) (!define-standard-type-predicates) - -;;;; transforms for type predicates not implemented primitively -;;;; -;;;; See also VM dependent transforms. (define-source-transform atom (x) `(not (consp ,x))) +(define-source-transform base-char-p (x) + `(typep ,x 'base-char)) ;;;; TYPEP source transform |